1 |
module advtrac_m |
module iniadvtrac_m |
2 |
|
|
3 |
! From advtrac.h, v 1.1.1.1 2004/05/19 12:53:06 |
! From advtrac.h, v 1.1.1.1 2004/05/19 12:53:06 |
4 |
|
|
106 |
if (nq_local > nqmx) then |
if (nq_local > nqmx) then |
107 |
print *, 'nombre de traceurs trop important' |
print *, 'nombre de traceurs trop important' |
108 |
print *, 'verifier traceur.def' |
print *, 'verifier traceur.def' |
109 |
stop |
stop 1 |
110 |
endif |
endif |
111 |
|
|
112 |
do iq=1, nq_local |
do iq=1, nq_local |
215 |
|
|
216 |
END subroutine iniadvtrac |
END subroutine iniadvtrac |
217 |
|
|
218 |
end module advtrac_m |
end module iniadvtrac_m |