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.

software/calex/calex.f

@@ -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