Il Linguaggio Fortran 90/95

1.5 Istruzioni di assegnazione ed espressioni 41
ans1: "Donald*Duck"
ans2: "Duffy*Duck*"
ans3: "DuckDuckDuc"
in cui, come in precedenza, con il simbolo ”*” si è voluto indicare graficamente uno spazio
vuoto.
Il seguente programma fornisce un esempio un pò più completo delle possibili applicazioni
degli strumenti di manipolazione delle stringhe di caratteri:
PROGRAM DateTime
IMPLICIT NONE
CHARACTER(LEN=8) :: date ! ccyymmdd
CHARACTER(LEN=4) :: anno
CHARACTER(LEN=2) :: mese, giorno
CHARACTER(LEN=10) :: time ! hhmmss.sss
CHARACTER(LEN=12) :: orario
CHARACTER(LEN=2) :: ore, minuti
CHARACTER(LEN=6) :: secondi
CALL DATE_AND_TIME(date,time)
! decompone la variabile "date" in anno, mese e giorno
! date ha forma ’ccyymmdd’, dove cc = secolo, yy = anno
! mm = mese e dd = giorno
anno = date(1:4)
mese = date(5:6)
giorno = date(7:8)
WRITE(*,*) ’ Data attuale -> ’, date
WRITE(*,*) ’ Anno -> ’, anno
WRITE(*,*) ’ Mese -> ’, mese
WRITE(*,*) ’ Giorno -> ’, giorno
! decompone la variabile "time" in ore, minuti e secondi
! time ha forma ’hhmmss.sss’, dove h = ore, m = minuti
! ed s = secondi
ore = time(1:2)
minuti = time(3:4)
secondi = time(5:10)
orario = ore // ’:’ // minuti // ’:’ // secondi
WRITE(*,*)
WRITE(*,*) ’ Orario attuale -> ’, time
WRITE(*,*) ’ Ore -> ’, ore
WRITE(*,*) ’ Minuti -> ’, minuti
WRITE(*,*) ’ Secondi -> ’, secondi
WRITE(*,*) ’ Orario -> ’, orario
END PROGRAM DateTime
Un possibile output di questo programma potrebbe essere: