File indexing completed on 2024-04-06 12:13:38
0001
0002
0003
0004
0005
0006
0007
0008 subroutine upopenfile(imix,imixtype,ibcstate,ioctet)
0009 implicit none
0010 integer imix,imixtype,ibcstate,ioctet
0011
0012
0013
0014
0015
0016
0017 if(imix.eq.1) then
0018
0019 open(unit=3,file='mix.cs',status='unknown')
0020 end if
0021
0022
0023
0024 if(imix.eq.1) then
0025 if(imixtype.eq.1) then
0026
0027
0028
0029
0030
0031
0032
0033
0034 open(unit=36,file='grade1s0.grid',status='unknown')
0035 open(unit=37,file='grade3s1.grid',status='unknown')
0036 open(unit=38,file='grade1p1.grid',status='unknown')
0037 open(unit=39,file='grade3p0.grid',status='unknown')
0038 open(unit=46,file='grade3p1.grid',status='unknown')
0039 open(unit=47,file='grade3p2.grid',status='unknown')
0040 open(unit=48,file='grade81s.grid',status='unknown')
0041 open(unit=49,file='grade83s.grid',status='unknown')
0042 end if
0043 if(imixtype.eq.2) then
0044
0045
0046 open(unit=36,file='grade1s0.grid',status='unknown')
0047 open(unit=37,file='grade3s1.grid',status='unknown')
0048 end if
0049 if(imixtype.eq.3) then
0050
0051
0052
0053
0054
0055
0056 open(unit=38,file='grade1p1.grid',status='unknown')
0057 open(unit=39,file='grade3p0.grid',status='unknown')
0058 open(unit=46,file='grade3p1.grid',status='unknown')
0059 open(unit=47,file='grade3p2.grid',status='unknown')
0060 open(unit=48,file='grade81s.grid',status='unknown')
0061 open(unit=49,file='grade83s.grid',status='unknown')
0062 end if
0063 end if
0064
0065
0066
0067
0068
0069
0070 if(imix.eq.0) then
0071 if(ibcstate.eq.1.and.ioctet.eq.0) then
0072
0073
0074 open(unit=3,file='1s0.cs',status='unknown')
0075 open(unit=11,file='grade1s0.grid',status='unknown')
0076 end if
0077 if(ibcstate.eq.2.and.ioctet.eq.0) then
0078
0079
0080 open(unit=3,file='3s1.cs',status='unknown')
0081 open(unit=11,file='grade3s1.grid',status='unknown')
0082 end if
0083 if(ibcstate.eq.1.and.ioctet.eq.1) then
0084
0085
0086 open(unit=3,file='oct1s0.cs',status='unknown')
0087 open(unit=11,file='grade81s.grid',status='unknown')
0088 end if
0089 if(ibcstate.eq.2.and.ioctet.eq.1) then
0090
0091
0092 open(unit=3,file='oct3s1.cs',status='unknown')
0093 open(unit=11,file='grade83s.grid',status='unknown')
0094 end if
0095 if(ibcstate.eq.3) then
0096
0097
0098 open(unit=3,file='1p1.cs',status='unknown')
0099 open(unit=11,file='grade1p1.grid',status='unknown')
0100 end if
0101 if(ibcstate.eq.4) then
0102
0103
0104 open(unit=3,file='3p0.cs',status='unknown')
0105 open(unit=11,file='grade3p0.grid',status='unknown')
0106 end if
0107 if(ibcstate.eq.5) then
0108
0109
0110 open(unit=3,file='3p1.cs',status='unknown')
0111 open(unit=11,file='grade3p1.grid',status='unknown')
0112 end if
0113 if(ibcstate.eq.6) then
0114
0115
0116 open(unit=3,file='3p2.cs',status='unknown')
0117 open(unit=11,file='grade3p2.grid',status='unknown')
0118 end if
0119 end if
0120
0121 end