| program main !<<<<< 1, 1, 21, 17, pass | |
| implicit none | |
| character*12 cint(12,12) | |
| character*1 cnmlp(lon,lat,2),rainp(lon,lat,2) | |
| character*10 UnOld,lolo*5 ='helios'!This is a comment | |
| CHARACTER*3 CONST,GREEK | |
| CHARACTER CATLOG*10,NAME*20 | |
| character *10 uno,dos | |
| character hname*20 | |
| Character str*10 | |
| character hname*20, name*50, lname*50, expdesc*50, hist*65 | |
| ! no change | |
| character (len=10)s , str2*36 | |
| character (len=10)s1 , str1='lola' | |
| character(len=10) :: UnNewString10 | |
| integer i | |
| end program main |