This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/60781] cannot match namelist object name
- From: "dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Tue, 08 Apr 2014 10:11:19 +0000
- Subject: [Bug fortran/60781] cannot match namelist object name
- Auto-submitted: auto-generated
- References: <bug-60781-4 at http dot gcc dot gnu dot org/bugzilla/>
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60781
--- Comment #6 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Curly quotes in
met_file = âmet_04270_62_65.txtâ
The following code
implicit none
character(len=70) :: &
dem_file='', &! Elevation file name
met_file='', &! Driving data file name
vegf_file='', &! Vegetation fraction file name
vegh_file='', &! Vegetation height file name
wind_file='', &! Wind distribution file name
RunID='' ! Run identifier
integer :: &
Nsmax,Nsoil,noff, &
d, &! Discretized wind direction (1 = NE, 2 = E, ..., 8 = N)
i,j, &! Grid indices
is,js, &! Grid location of met station
dayout(12),monthout(12)
real :: &
dt,lat,windir,zT,zU, &
sx,sy, &! Coordinates of met station (m)
Waws, &! Wind speed at met station
xlo,ylo, &! Grid SW corner coordinates (m)
xhi,yhi ! Grid NE corner coordinates (m)
real, allocatable :: &
dzdx(:,:), &! Partial derivative
dzdy(:,:) ! Partial derivative
namelist /grids/ dem_file,vegf_file,vegh_file,wind_file,Nsmax,Nsoil,sx,sy
namelist /drive/ dt,lat,met_file,noff,windir,zT,zU
namelist /output/ RunID,dayout,monthout
read(5, grids)
read(5, drive)
read(5, output)
print *, dem_file,vegf_file,vegh_file,wind_file,Nsmax,Nsoil,sx,sy
print *, dt,lat,met_file,noff,windir,zT,zU
print *, RunID,dayout,monthout
end
reads the namelist once the curly quotes have replaced with '.