Commit 9dd7a1da authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

do not exit mxx_search when mxx file not found

parent 57bde5bf

sources/module_gen_makro.f90

+2 −1
Original line number Diff line number Diff line
@@ -825,7 +825,8 @@ subroutine mxx_search(lmatch, smatch,cmatch,dmatch,tau_in_range,lambda_in,q1_in, 
   if(.not. da) then

     write(*,*)"Could not find file: "

     write(*,*) trim(MXX_ECHO_DIR)

     stop

     return

     !stop ! (paz) do not exit the program when file not found

   endif

   

   open(newunit=infile,file=trim(MXX_ECHO_DIR),status="old",action="read",iostat=ok)