c this is a file to open four data files, which ocupy unit 10,12,14, and 16
c respectively.
	IMPLICIT DOUBLE PRECISION(A-H,O-Z)
	COMPLEX*16 YL11(50),YL12(50),YL21(50),YL22(50)
	REAL*8 UM1,UM2,EM1,EM2,HA,HB,HD,AL1,AL2,WL,R0,ANG0,FAI
	OPEN (30,FILE='emin1.dat',STATUS='UNKNOWN')
	OPEN (12,FILE='emin2.dat',STATUS='UNKNOWN')
	OPEN (14,FILE='emin3.dat',STATUS='UNKNOWN')
	OPEN (16,FILE='emin4.dat',STATUS='UNKNOWN')
	I=5
	J=5
	M=20
	N=20
	WRITE(30,*) I,J,M,N
	UM1=1.0
	UM2=1.0
	EM1=1.0
	EM2=1.0
	HA=0.25
	HB=0.25
	HD=0.5
	AL1=0.3
	AL2=0.3
	WRITE(12,*) UM1,UM2,EM1,EM2,HA,HB,HD,AL1,AL2
	WL=1.
	R0=10.
	ANG0=0.
	FAI=0.5236
	WRITE(14,*) WL,R0,ANG0,FAI
	DO 60 I=1,50
	YL11(I)=(0.,0.)
	YL12(I)=(1.,0.)
	YL21(I)=(1.,0.)
	YL22(I)=(0.,0.)
	WRITE(16,*) YL11(I),YL12(I),YL21(I),YL22(I)
 60	CONTINUE
	STOP
	END

