Commit b82b4964 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

master [FIX]: calex: support UNIX path names

When reading data file pathnames from the parameter file, the directory
separator '/' was a field separator in Fortran free format list input. The
program now explicitely reads an ASCII string and finds the first blank in the
string to extract the full pathname.
parent e9794aa1
......@@ -137,6 +137,8 @@ c
c the 'use' statement is compiler specific, and not required for Linux
c use nas_systemc
c
c 11.10.2016: support UNIX path names for eing and ausg
c
c ----------------------------------------------------------------------
c
c definition of bp2 response
......@@ -160,7 +162,7 @@ c
c needs heap 22000 kBytes for ns=480000, 40000 for ns=800000
implicit double precision (a-h,o-z)
character endtxt*9, titel*72
character*50 eing,ausg,nam3,nam4
character*50 eing,ausg,nam3,nam4,pathname
character*3 nam,typ,znam,ztyp,pnam
logical pzmode
dimension x(mpar)
......@@ -196,10 +198,12 @@ c & ztyp(msys),znam(mpar),mz1,mz2,jp,jpm,jpole(msys)
c read header line and file names
read(3,'(a)') titel
if(titel(1:8).eq.'<pzmode>') pzmode=.true.
201 read(3,*) eing
if(eing(1:1).eq.' '.or.eing(1:1).eq.'') goto 201
202 read(3,*) ausg
if(ausg(1:1).eq.' '.or.eing(1:1).eq.'') goto 202
201 read(3,'(a)') pathname
if(pathname(1:1).eq.' '.or.pathname(1:1).eq.'') goto 201
eing=pathname(1:index(pathname, ' ')-1)
202 read(3,'(a)') pathname
if(pathname(1:1).eq.' '.or.pathname(1:1).eq.'') goto 202
ausg=pathname(1:index(pathname, ' ')-1)
close(3)
C read output (ausg) and input (eing) signals, prefilter output signal
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment