20 lines
462 B
Fortran
20 lines
462 B
Fortran
c
|
|
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
|
|
c
|
|
subroutine gutrack
|
|
c
|
|
c T. Prokscha, 15-Sep-2000, PSI
|
|
c
|
|
c Unix version, part of the geant_lemsr program
|
|
c
|
|
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
|
|
c
|
|
implicit none
|
|
c
|
|
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
|
|
c
|
|
c type*,' routine GUTRACK'
|
|
call gtrack
|
|
return
|
|
end
|