Initial commit

gen/dat_xxx.f

@@ -0,0 +1,63 @@
+	subroutine dat_xxx
+!	------------------
+
+	external dat_xxx_desc
+	external dat_xxx_opts
+	external dat_xxx_high ! this line for raw data files only
+	external dat_xxx_read
+
+	integer dtype/0/
+
+	call dat_init_desc(dtype, dat_xxx_desc)
+	call dat_init_opts(dtype, dat_xxx_opts)
+	call dat_init_high(dtype, dat_xxx_high) ! this line for raw data files only
+	call dat_init_read(dtype, dat_xxx_read)
+	end
+
+
+	subroutine dat_xxx_desc(text)
+!	-----------------------------
+	character*(*) text  ! (out) description
+
+!             type    description
+!             ----------------------------------
+	text='XXX     test example'
+	end
+
+
+	subroutine dat_xxx_opts
+!	-----------------------
+	print '(x,a)'
+	1,'opts description'
+	end
+
+
+	subroutine dat_xxx_high(file, numor)
+!	------------------------------------
+! only to implement for raw data files
+! returns highest NUMOR. FILE is the location of the file holding the last numor
+
+	character*(*) file  ! (in) filename containing info for last numor
+	integer numor       ! (out) last numor
+
+	end
+	
+
+	subroutine dat_xxx_read
+	1 (lun, forced, nread, putval, nmax, xx, yy, ss, ww)
+!	----------------------------------------------------
+	implicit none
+
+	integer lun	! (in) logical unit number (file will be closed if successful)
+	integer forced	! 0: read only if type is sure; 1: forced read
+	integer nread	! (out) >=0: = number of points read, file closed
+	                !       -1: not correct type, file rewinded
+	                !       -2: correct type, but unreadable, file rewinded
+	external putval ! (in) subroutine to put name/value pairs.
+	                ! for numeric data:     call putval('name', value)   ! value must be real
+			! for character data:   call putval('name=text', 0.0)
+	integer nmax    ! max. number of points
+	real xx(*)	! x-values
+	real yy(*)	! y-values
+	real ss(*)	! sigma
+	real ww(*)	! weights  (original monitor)