Searched refs:variab (Results 1 – 3 of 3) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | error.f | 1 subroutine error (routin, variab, num) argument
18 character*8 routin, variab local
35 write (*,1000) title, routin, variab, num
36 if (num .ne. 0) write (ierror,1000) title, routin, variab, num
37 if (num .eq. 0) write (ierror,1000) title, routin, variab
|
| /phasta/phSolver/common/ |
| H A D | error.f | 1 subroutine error (routin, variab, num) argument
18 character*8 routin, variab local
35 write (*,1000) title, routin, variab, num
36 if (num .ne. 0) write (ierror,1000) title, routin, variab,num
37 if (num .eq. 0) write (ierror,1000) title, routin, variab
|
| /phasta/M2NFixBnd/src/ |
| H A D | error.f | 1 subroutine error (routin, variab, num) argument
18 character*8 routin, variab local
36 write (*,1000) title, routin, variab, num
37 if (num .ne. 0) write (ierror,1000) title, routin, variab,num
38 if (num .eq. 0) write (ierror,1000) title, routin, variab
|