PROGRAM makemap

c	Creates the maps.com file which submits the stream of PCD map
c	generation jobs 

	INTEGER	obs, calc, min

	OPEN (unit=1, file='maps.com',form='FORMATTED',
	1	status='UNKNOWN',carriagecontrol='LIST')

	obs = 39
	calc =  21
	ncyc = 380

	WRITE (1, 1000) '#!/bin/csh'
1000	FORMAT (a,i5,a)
	WRITE (1, 1000)
	WRITE (1, 1000) '#	Submit jobs to calculate maps'
	WRITE (1, 1000)
	WRITE (1, 1000) 'cd /usr/persons/ohlen/pcd'
	WRITE (1, 1000) 'date'
	min = 1

	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', obs, calc, ' cycle', 
	1	ncyc, ' >& /usr/persons/ohlen/pcd/cycle', ncyc, '.log.', ncyc, '.1'
1001	FORMAT (a,2i3,5(a,i3))
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', obs, calc, ' cycle', 
	1	ncyc, ' >& /usr/persons/ohlen/pcd/cycle', ncyc, '.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', obs, calc+2, ' cycle', 
	1	ncyc, 'nw >& /usr/persons/ohlen/pcd/cycle', ncyc, 'nw.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', obs, calc+2, ' cycle', 
	1	ncyc, 'nw >& /usr/persons/ohlen/pcd/cycle', ncyc, 'nw.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34

	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com cycle', ncyc, 
	1	'.fofc >& /usr/persons/ohlen/pcd/tommap.log.15'
1002	FORMAT (5(a,i3))
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com cycle', ncyc, 
	1	'.2fofc >& /usr/persons/ohlen/pcd/tommap.log.16'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com cycle', ncyc, 
	1	'nw.fofc >& /usr/persons/ohlen/pcd/tommap.log.15nw'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com cycle', ncyc, 
	1	'nw.2fofc >& /usr/persons/ohlen/pcd/tommap.log.16nw'
	WRITE (1, 1000) 'end'
	min = min + 1

	WRITE (1, 1002)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofc.com', obs, calc, ' CYCLE', ncyc, 
	1	' >& /usr/persons/ohlen/pcd/CYCLE', ncyc, '.log.', ncyc, '.1'
	WRITE (1, 1002) 'end'
  	min = min + 4
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofc.com', obs, calc, ' CYCLE', ncyc, 
	1	' >& /usr/persons/ohlen/pcd/CYCLE', ncyc, '.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 4

	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com CYCLE', ncyc, 
	1	'.fofc >& /usr/persons/ohlen/pcd/tommap.log.1'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com CYCLE', ncyc, 
	1	'.2fofc >& /usr/persons/ohlen/pcd/tommap.log.2'
	WRITE (1, 1000) 'end'
	min = min + 1

	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', obs, calc, ' CYCLE', 
	1	ncyc, ' >& /usr/persons/ohlen/pcd/CYCLE', ncyc, '.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 4
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', obs, calc, ' CYCLE',  
	1	ncyc, ' >& /usr/persons/ohlen/pcd/CYCLE', ncyc, '.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 4
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', obs, calc+2, ' CYCLE', 
	1	ncyc, 'nw >& /usr/persons/ohlen/pcd/CYCLE', ncyc, 'nw.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 4
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', obs, calc+2, ' CYCLE', 
	1	ncyc, 'nw >& /usr/persons/ohlen/pcd/CYCLE', ncyc, 'nw.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 4

	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com CYCLE', ncyc,
	1 	'.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 4
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com CYCLE', ncyc, 
	1	'.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 4
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com CYCLE', ncyc,
	1 	'nw.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1nw'
	WRITE (1, 1000) 'end'
	min = min + 4
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com CYCLE', ncyc, 
	1	'nw.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2nw'
	WRITE (1, 1000) 'end'
	min = min + 4

	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/assess.com ', ncyc, 
	1	' >& /usr/persons/ohlen/pcd/assess.log.', ncyc
	WRITE (1, 1000) 'end'
	min = min + 1
	
	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/ASSESS.com ', ncyc,
	1	' >& /usr/persons/ohlen/pcd/ASSESS.log.', ncyc
	WRITE (1, 1000) 'end'
	min = min + 5

	WRITE (1, 1000) 'exit'
	min = 1

	WRITE (1, 1000)
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+6, obs,
	1	' TAMM2', calc+1, ' >& /usr/persons/ohlen/pcd/TAMM2.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+6, obs,
	1	' TAMM2', calc+1, ' >& /usr/persons/ohlen/pcd/TAMM2.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com TAMM2.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
  	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com TAMM2.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+8, obs,
	1	' PTCN1', calc+1, ' >& /usr/persons/ohlen/pcd/PTCN1.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+8, obs,
	1	' PTCN1', calc+1, ' >& /usr/persons/ohlen/pcd/PTCN1.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com PTCN1.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
  	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com PTCN1.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+10, obs,
	1	' IBENZ', calc+1, ' >& /usr/persons/ohlen/pcd/IBENZ.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+10, obs,
	1	' IBENZ', calc+1, ' >& /usr/persons/ohlen/pcd/IBENZ.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com IBENZ.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com IBENZ.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+12, obs,
	1	' IBENZ2', calc+1, ' >& /usr/persons/ohlen/pcd/IBENZ2.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+12, obs,
	1	' IBENZ2', calc+1, ' >& /usr/persons/ohlen/pcd/IBENZ2.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com IBENZ2.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com IBENZ2.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+14, obs,
	1	' BENZ3', calc+1, ' >& /usr/persons/ohlen/pcd/BENZ3.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+14, obs,
	1	' BENZ3', calc+1, ' >& /usr/persons/ohlen/pcd/BENZ3.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com BENZ3.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com BENZ3.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+16, obs,
	1	' TERE3', calc+1, ' >& /usr/persons/ohlen/pcd/TERE3.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+16, obs,
	1	' TERE3', calc+1, ' >& /usr/persons/ohlen/pcd/TERE3.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com TERE3.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com TERE3.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+20, obs,
	1	' CLHBA', calc+1, ' >& /usr/persons/ohlen/pcd/CLHBA.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+20, obs,
	1	' CLHBA', calc+1, ' >& /usr/persons/ohlen/pcd/CLHBA.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com CLHBA.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com CLHBA.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+22, obs,
	1	' IHBA', calc+1, ' >& /usr/persons/ohlen/pcd/IHBA.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+22, obs,
	1	' IHBA', calc+1, ' >& /usr/persons/ohlen/pcd/IHBA.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com IHBA.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com IHBA.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcall.com', calc+24, obs,
	1	' INO', calc+1, ' >& /usr/persons/ohlen/pcd/INO.all.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcall.com', calc+24, obs,
	1	' INO', calc+1, ' >& /usr/persons/ohlen/pcd/INO.all.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 6
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com INO.fofc >& /usr/persons/ohlen/pcd/tommapall.log.1'
	WRITE (1, 1000) 'end'
	min = min + 3
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommapall.com INO.2fofc >& /usr/persons/ohlen/pcd/tommapall.log.2'
	WRITE (1, 1000) 'end'

	WRITE (1, 1000) 'exit'
	min = 1

	WRITE (1, 1000) 
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+6, obs,
	1	' tamm2', calc+1, ' >& /usr/persons/ohlen/pcd/tamm2.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+6, obs,
	1	' tamm2', calc+1, ' >& /usr/persons/ohlen/pcd/tamm2.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com tamm2.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com tamm2.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+8, obs, 
	1	' ptcn1', calc+1, ' >& /usr/persons/ohlen/pcd/ptcn1.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+8, obs, 
	1	' ptcn1', calc+1, ' >& /usr/persons/ohlen/pcd/ptcn1.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ptcn1.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ptcn1.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+10, obs, 
	1	' ibenz', calc+1, ' >& /usr/persons/ohlen/pcd/ibenz.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+10, obs, 
	1	' ibenz', calc+1, ' >& /usr/persons/ohlen/pcd/ibenz.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ibenz.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ibenz.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+12, obs,
	1	' ibenz2', calc+1, ' >& /usr/persons/ohlen/pcd/ibenz2.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+12, obs,
	1	' ibenz2', calc+1, ' >& /usr/persons/ohlen/pcd/ibenz2.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ibenz2.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ibenz2.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+14, obs, 
	1	' benz3', calc+1, ' >& /usr/persons/ohlen/pcd/benz3.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+14, obs, 
	1	' benz3', calc+1, ' >& /usr/persons/ohlen/pcd/benz3.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com benz3.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com benz3.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+16, obs, 
	1	' tere3', calc+1, ' >& /usr/persons/ohlen/pcd/tere3.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+16, obs, 
	1	' tere3', calc+1, ' >& /usr/persons/ohlen/pcd/tere3.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com tere3.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com tere3.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+20, obs, 
	1	' clhba', calc+1, ' >& /usr/persons/ohlen/pcd/clhba.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+20, obs, 
	1	' clhba', calc+1, ' >& /usr/persons/ohlen/pcd/clhba.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com clhba.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com clhba.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+22, obs, 
	1	' ihba', calc+1, ' >& /usr/persons/ohlen/pcd/ihba.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+22, obs, 
	1	' ihba', calc+1, ' >& /usr/persons/ohlen/pcd/ihba.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ihba.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ihba.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/fofcaver.com', calc+24, obs, 
	1	' ino', calc+1, ' >& /usr/persons/ohlen/pcd/ino.log.', ncyc, '.1'
	WRITE (1, 1000) 'end'
  	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1001) '/usr/persons/ohlen/pcd/2fofcaver.com', calc+24, obs, 
	1	' ino', calc+1, ' >& /usr/persons/ohlen/pcd/ino.log.', ncyc, '.2'
	WRITE (1, 1000) 'end'
	min = min + 34
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ino.fofc >& /usr/persons/ohlen/pcd/tommap.log.11'
	WRITE (1, 1000) 'end'
	min = min + 1
	WRITE (1, 1000) 'at now +', min, ' min << end'
	WRITE (1, 1002) '/usr/persons/ohlen/pcd/tommap.com ino.2fofc >& /usr/persons/ohlen/pcd/tommap.log.12'
	WRITE (1, 1000) 'end'
	min = min + 1

	WRITE (1, 1000) 'exit'

9	CLOSE (unit=1)
	end