29 lines
455 B
Fortran
29 lines
455 B
Fortran
subroutine dat_init
|
|
c
|
|
c initialize interfaces to all supported data file types
|
|
c
|
|
logical init/.true./
|
|
|
|
if (init) then
|
|
call dat_tasmad
|
|
call dat_lnsp
|
|
call dat_d1a
|
|
call dat_nexus
|
|
call dat_oldtas
|
|
call dat_rita
|
|
call dat_sics
|
|
call dat_ccl
|
|
call dat_frm
|
|
call dat_5c2
|
|
call dat_inx
|
|
call dat_ida
|
|
call dat_fda
|
|
call dat_fullp
|
|
call dat_spec
|
|
call dat_2t
|
|
call dat_fit3
|
|
call dat_table
|
|
init=.false.
|
|
endif
|
|
end
|