Searched refs:exinput (Results 1 – 3 of 3) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 62 logical exinput local
80 inquire(file=fnamer,exist=exinput)
81 if(exinput) then
95 call mpi_bcast(exinput,1,MPI_LOGICAL,0,mpi_comm_world,ierr)
96 if(.not. exinput) then ! AcuStat_input.dat does not exist. Quit
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 65 logical exinput local
77 inquire(file=fnamer,exist=exinput)
78 if(exinput) then
95 call mpi_bcast(exinput,1,MPI_LOGICAL,0,mpi_comm_world,ierr)
96 if(.not. exinput) then ! M2NFixBnd_input.dat does not exist. Quit
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 69 logical :: exmap, exinput local
104 inquire(file=fnamer,exist=exinput)
105 if(exinput) then
124 call mpi_bcast(exinput,1,MPI_LOGICAL,0,mpi_comm_world,ierr)
125 if(.not. exinput) then ! M2N_input.dat does not exist. Quit
|