H A D | paramfile_io.F90 | 78 idef, imin, imax, ldef, lmin, lmax, logdef, chdef, descr, ivalid) argument 87 logical, intent(in), optional :: logdef local 127 if (present(logdef)) print *, "default value: ", logdef 324 ddef,dmin,dmax,idef,imin,imax,ldef,lmin,lmax,logdef,chdef,descr, & argument 337 logical, intent(in), optional :: logdef local 349 & idef,imin,imax,ldef,lmin,lmax,logdef,chdef,descr, & 364 if (present(logdef)) write(handle%valuelist(i),*) logdef 632 call find_param (handle, trim(keyname), result, found, logdef=default, &
|