Commit 104fbd2f authored by Monkenbusch, Michael's avatar Monkenbusch, Michael
Browse files

mxxx path

parent 9cdccd3b

sources/mxxx.f90

+9 −7
Original line number Diff line number Diff line 
! compile: gfortran -o mxx  mxx.f89

! compile: gfortran -o mxx  mxx.f90

program mxx



implicit none

!character(len=128) :: mdir = "/data/nse_runtime/mxx.echo.directory"

character(len=128) :: mdir = "/Users/Apple/Desktop/data/nse_runtime/mxx.echo.directory"

character(len=128) :: mdir = "./mxx.echo.directory"

!character(len=128) :: mdir = "/Users/Apple/Desktop/data/nse_runtime/mxx.echo.directory"

!"/Users/monk/ownCloud/super-j-nse/Anpassungen/nse-program/PROGJNSEtoSUPER/nse/Sandbox/nse_data/mxx.echo.directory"

integer, parameter :: mtau = 100

integer, parameter :: llen = 512
@@ -16,7 +16,7 @@ logical :: da 


integer            :: infile

integer            :: llent

integer            :: i1, iq, itemp, ilam, ico, icoe, iok, ikill, ierr, ok

integer            :: i1, iq, itemp, ilam, ico, icoe, iok, ikill, ierr, ok, ios

integer            :: itime1

integer            :: numor

integer            :: ntau
@@ -137,7 +137,7 @@ character(len=llen) :: dmatch = " " 
inquire(file=trim(mdir),exist=da)

if(.not. da) then

   write(*,*) "File: ",trim(mdir)," NOT FOUND!"

   mdir = "/Users/monk"//mdir

   mdir = "/Users/monk"//mdir(1:128-len("/Users/monk")) ! (paz) make sure it does not overflow

   write(*,*) ".... try: ",trim(mdir)

endif
@@ -168,8 +168,10 @@ rl: do 
      llent = len_trim(line)

      i1=index(line," ")

      if(i1 > 3) then

        read(line(2:i1-2),*) itime1

        read(line(i1:i1+6),*) numor

        read(line(2:i1-2),*,iostat=ios) itime1

        if(ios.ne.0) then; write(*,*)"cannot interpret as time(int): >",line(2:i1-2),"<",trim(line); endif

        read(line(i1:i1+6),*,iostat=ios) numor

        if(ios.ne.0) then; write(*,*)"cannot interpret as numor: >",line(i1:i1+6),"<",trim(line); endif

        iq     = index(line," Q=")

        itemp  = index(line," T=")

        ilam   = index(line," LAM=")