Line length limit of Fortran input files
We noticed that the Fortran code doesn't find some input files even though the .inp
files contains the correct paths. The reason for that is that the Fortran code only reads in input files to the column 150 because the memory space storing the strings is limited to 150. In some environments, we have very long paths due to shared infrastructure, hence we didn't notice it until recently.
We fixed it by just changing the string length to 300.
source/invers/globinv20.f90
(line 41):
- character(150) :: datumspfad,abscodatei
+ character(300) :: datumspfad,abscodatei
source/invers/invers20.f90
(line 35):
- character(len=150) :: inputdatei
+ character(len=300) :: inputdatei
source/pcxs/globvar20.f90
(lines 44-46):
- character(150),dimension(maxtau) :: hitdatei,vmrdatei
- character(150) :: ptdatei,h2odatei,soldatei,specidatei
- character(150) :: datumspfad
+ character(300),dimension(maxtau) :: hitdatei,vmrdatei
+ character(300) :: ptdatei,h2odatei,soldatei,specidatei
+ character(300) :: datumspfad
source/pcxs/pcxs20.f90
(lines 32, 1710, 2018):
- character(len=150) :: abscodatei,inputdatei,AVKdatei
- character(len=150) :: zeile
- character(len=150) :: zeile
+ character(len=300) :: abscodatei,inputdatei,AVKdatei
+ character(len=300) :: zeile
+ character(len=300) :: zeile
source/preprocess/glob_prepro4.f90
(lines 28, 47):
- integer,parameter :: lengthcharmeas = 150
- character(len=150) :: infotext,diagoutpath,binoutpath
+ integer,parameter :: lengthcharmeas = 300
+ character(len=300) :: infotext,diagoutpath,binoutpath
source/preprocess/glob_prepro4.f90
(line 1545):
- character(len=150) :: zeile
+ character(len=300) :: zeile