This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/60781] cannot match namelist object name


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 '.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]