преобразование символов в целые числа в фортране

Question

У меня есть значение даты и времени, объявленное таким образом как символ "1985-01-01-00: 00", и я хочу извлечь год, месяц и день как целое число.Я не знаю точную команду на языке Фортран.

Answer 1

Например:

program zz
  character(20) :: ch = "1985-01-01-00:00"
  integer yyyy,mm,dd

  read(ch(1:4),'(i)') yyyy
  read(ch(6:7),'(i)') mm
  read(ch(9:10),'(i)') dd

  write(*,*) yyyy, mm, dd
end program zz