Initial commit

2022-08-19 15:22:33 +02:00
commit d682fae506
545 changed files with 48172 additions and 0 deletions
--- a/gen/dat_init.f
+++ b/gen/dat_init.f
@ -0,0 +1,28 @@
+	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