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