Home
last modified time | relevance | path

Searched refs:ilm (Results 1 – 25 of 690) sorted by relevance

12345678910>>...28

/dports/math/libpgmath/flang-d07daf3/tools/flang2/utils/upper/
H A Dupperilm.in92 BTASKLOOP sym num ilm ilm ilm ilm
138 CDMERGE ilm ilm ilm
173 CMERGE ilm ilm ilm
237 DMERGE ilm ilm ilm
323 IBITS ilm ilm ilm
341 IMERGE ilm ilm ilm
349 ISHFTC ilm ilm ilm
373 KBITS ilm ilm ilm
491 NSUBS ilm ilm ilm
556 SHD ilm ilm ilm
[all …]
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/
H A Dlowerexp.c76 ilm = plower("oi", "STOI", ilm); in conv_bint_ilm()
77 ilm = plower("oi", "ITOSC", ilm); in conv_bint_ilm()
81 ilm = plower("oi", "ITOSC", ilm); in conv_bint_ilm()
85 ilm = plower("oi", "I8TOI", ilm); in conv_bint_ilm()
86 ilm = plower("oi", "ITOSC", ilm); in conv_bint_ilm()
89 ilm = plower("oi", "FIX", ilm); in conv_bint_ilm()
90 ilm = plower("oi", "ITOSC", ilm); in conv_bint_ilm()
93 ilm = plower("oi", "DFIX", ilm); in conv_bint_ilm()
97 ilm = plower("oi", "REAL", ilm); in conv_bint_ilm()
98 ilm = plower("oi", "FIX", ilm); in conv_bint_ilm()
[all …]
/dports/graphics/darktable38/darktable-3.8.0/src/external/LibRaw/src/metadata/
H A Dleica.cpp32 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
40 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in setLeicaBodyFeatures()
41 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
46 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in setLeicaBodyFeatures()
47 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
94 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_FF; in setLeicaBodyFeatures()
105 ilm.LensID = ((ilm.LensID >> 2) << 8) | (ilm.LensID & 0x3); in parseLeicaLensID()
106 if ((ilm.LensID > 0x00ff) && (ilm.LensID < 0x3b00)) in parseLeicaLensID()
108 ilm.LensMount = ilm.CameraMount; in parseLeicaLensID()
320 ilm.LensMount = ilm.CameraMount; in parseLeicaMakernote()
[all …]
H A Dnormalize_model.cpp671 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
692 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
699 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
1058 if (ilm.body[0]) in GetNormalizedModel()
1062 ((ilm.body[11] == 'C') || (ilm.body[11] == '2') || in GetNormalizedModel()
1063 (ilm.body[11] == '5') || (ilm.body[11] == '9'))) in GetNormalizedModel()
1152 ilm.CameraFormat = ilm.CameraMount = LIBRAW_FORMAT_FT; in GetNormalizedModel()
1167 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_FT; in GetNormalizedModel()
1389 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Canon_RF; in GetNormalizedModel()
1405 ilm.LensFormat = ilm.CameraFormat; in GetNormalizedModel()
[all …]
H A Dmediumformat.cpp89 stmread(ilm.body, len, ifp); in parse_phase_one()
91 ilm.body[0] = 0; in parse_phase_one()
94 stmread(ilm.Lens, len, ifp); in parse_phase_one()
96 ilm.Lens[0] = 0; in parse_phase_one()
127 if (ilm.MinFocal > 1000.0f) in parse_phase_one()
129 ilm.MinFocal = 0.0f; in parse_phase_one()
297 if ((ilm.MaxAp4CurFocal > 0.7f) && in parse_phase_one()
299 float MinAp4CurFocal = MAX(ilm.MaxAp4CurFocal,ilm.MinAp4CurFocal); in parse_phase_one()
300 ilm.MaxAp4CurFocal = MIN(ilm.MaxAp4CurFocal,ilm.MinAp4CurFocal); in parse_phase_one()
390 if (ilm.body[0]) in parse_mos()
[all …]
H A Dcanon.cpp558 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in processCanonCameraInfo()
607 ilm.MaxFocal /= (float)ilm.FocalUnits; in Canon_CameraSettings()
608 ilm.MinFocal /= (float)ilm.FocalUnits; in Canon_CameraSettings()
762 ilm.CurFocal /= (float)ilm.FocalUnits; in parseCanonMakernotes()
863 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
871 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
879 memmove(ilm.Lens + 3, ilm.Lens + 2, 62); in parseCanonMakernotes()
887 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
895 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
903 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
[all …]
H A Dpentax.cpp22 ilm.CamID = id; in setPentaxBodyFeatures()
202 ilm.MinAp4MinFocal = 22.0f; in PentaxLensInfo()
205 ilm.MinAp4MinFocal = 32.0f; in PentaxLensInfo()
208 ilm.MinAp4MinFocal = 45.0f; in PentaxLensInfo()
211 ilm.MinAp4MinFocal = 16.0f; in PentaxLensInfo()
215 ilm.LensFStops = in PentaxLensInfo()
354 ilm.LensID = a | fgetc(ifp); in parsePentaxMakernotes()
503 stread(ilm.Lens, 30, ifp); in parsePentaxMakernotes()
504 strcat(ilm.Lens, " "); in parsePentaxMakernotes()
506 strcat(ilm.Lens, LensInfo); in parsePentaxMakernotes()
[all …]
H A Dnikon.cpp101 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Nikon_CX; in processNikonLensData()
102 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_1INCH; in processNikonLensData()
105 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Nikon_F; in processNikonLensData()
176 ilm.MinFocal = in processNikonLensData()
179 ilm.MaxFocal = in processNikonLensData()
182 ilm.MaxAp4MinFocal = in processNikonLensData()
192 ilm.CurFocal = in processNikonLensData()
313 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_FixedLens; in parseNikonMakernote()
693 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in parseNikonMakernote()
698 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in parseNikonMakernote()
[all …]
/dports/graphics/digikam/digikam-7.4.0/core/libs/rawengine/libraw/src/metadata/
H A Dleica.cpp32 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
40 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in setLeicaBodyFeatures()
41 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
46 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in setLeicaBodyFeatures()
47 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
94 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_FF; in setLeicaBodyFeatures()
105 ilm.LensID = ((ilm.LensID >> 2) << 8) | (ilm.LensID & 0x3); in parseLeicaLensID()
106 if ((ilm.LensID > 0x00ff) && (ilm.LensID < 0x3b00)) in parseLeicaLensID()
108 ilm.LensMount = ilm.CameraMount; in parseLeicaLensID()
320 ilm.LensMount = ilm.CameraMount; in parseLeicaMakernote()
[all …]
H A Dnormalize_model.cpp671 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
692 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
699 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
1058 if (ilm.body[0]) in GetNormalizedModel()
1062 ((ilm.body[11] == 'C') || (ilm.body[11] == '2') || in GetNormalizedModel()
1063 (ilm.body[11] == '5') || (ilm.body[11] == '9'))) in GetNormalizedModel()
1152 ilm.CameraFormat = ilm.CameraMount = LIBRAW_FORMAT_FT; in GetNormalizedModel()
1167 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_FT; in GetNormalizedModel()
1389 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Canon_RF; in GetNormalizedModel()
1405 ilm.LensFormat = ilm.CameraFormat; in GetNormalizedModel()
[all …]
H A Dmediumformat.cpp89 stmread(ilm.body, len, ifp); in parse_phase_one()
91 ilm.body[0] = 0; in parse_phase_one()
94 stmread(ilm.Lens, len, ifp); in parse_phase_one()
96 ilm.Lens[0] = 0; in parse_phase_one()
127 if (ilm.MinFocal > 1000.0f) in parse_phase_one()
129 ilm.MinFocal = 0.0f; in parse_phase_one()
297 if ((ilm.MaxAp4CurFocal > 0.7f) && in parse_phase_one()
299 float MinAp4CurFocal = MAX(ilm.MaxAp4CurFocal,ilm.MinAp4CurFocal); in parse_phase_one()
300 ilm.MaxAp4CurFocal = MIN(ilm.MaxAp4CurFocal,ilm.MinAp4CurFocal); in parse_phase_one()
390 if (ilm.body[0]) in parse_mos()
[all …]
H A Dcanon.cpp558 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in processCanonCameraInfo()
607 ilm.MaxFocal /= (float)ilm.FocalUnits; in Canon_CameraSettings()
608 ilm.MinFocal /= (float)ilm.FocalUnits; in Canon_CameraSettings()
762 ilm.CurFocal /= (float)ilm.FocalUnits; in parseCanonMakernotes()
863 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
871 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
879 memmove(ilm.Lens + 3, ilm.Lens + 2, 62); in parseCanonMakernotes()
887 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
895 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
903 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
[all …]
H A Dpentax.cpp22 ilm.CamID = id; in setPentaxBodyFeatures()
202 ilm.MinAp4MinFocal = 22.0f; in PentaxLensInfo()
205 ilm.MinAp4MinFocal = 32.0f; in PentaxLensInfo()
208 ilm.MinAp4MinFocal = 45.0f; in PentaxLensInfo()
211 ilm.MinAp4MinFocal = 16.0f; in PentaxLensInfo()
215 ilm.LensFStops = in PentaxLensInfo()
354 ilm.LensID = a | fgetc(ifp); in parsePentaxMakernotes()
503 stread(ilm.Lens, 30, ifp); in parsePentaxMakernotes()
504 strcat(ilm.Lens, " "); in parsePentaxMakernotes()
506 strcat(ilm.Lens, LensInfo); in parsePentaxMakernotes()
[all …]
H A Dnikon.cpp101 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Nikon_CX; in processNikonLensData()
102 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_1INCH; in processNikonLensData()
105 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Nikon_F; in processNikonLensData()
176 ilm.MinFocal = in processNikonLensData()
179 ilm.MaxFocal = in processNikonLensData()
182 ilm.MaxAp4MinFocal = in processNikonLensData()
192 ilm.CurFocal = in processNikonLensData()
313 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_FixedLens; in parseNikonMakernote()
693 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in parseNikonMakernote()
698 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in parseNikonMakernote()
[all …]
/dports/graphics/libraw/LibRaw-0.20.2/src/metadata/
H A Dleica.cpp32 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
40 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in setLeicaBodyFeatures()
41 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
46 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in setLeicaBodyFeatures()
47 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setLeicaBodyFeatures()
92 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_FF; in setLeicaBodyFeatures()
103 ilm.LensID = ((ilm.LensID >> 2) << 8) | (ilm.LensID & 0x3); in parseLeicaLensID()
104 if ((ilm.LensID > 0x00ff) && (ilm.LensID < 0x3b00)) in parseLeicaLensID()
106 ilm.LensMount = ilm.CameraMount; in parseLeicaLensID()
305 ilm.LensMount = ilm.CameraMount; in parseLeicaMakernote()
[all …]
H A Dnormalize_model.cpp647 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
654 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_1div1p7INCH; in GetNormalizedModel()
668 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
675 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in GetNormalizedModel()
1013 if (ilm.body[0]) in GetNormalizedModel()
1017 ((ilm.body[11] == 'C') || (ilm.body[11] == '2') || in GetNormalizedModel()
1018 (ilm.body[11] == '5') || (ilm.body[11] == '9'))) in GetNormalizedModel()
1107 ilm.CameraFormat = ilm.CameraMount = LIBRAW_FORMAT_FT; in GetNormalizedModel()
1122 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_FT; in GetNormalizedModel()
1346 ilm.LensFormat = ilm.CameraFormat; in GetNormalizedModel()
[all …]
H A Dcanon.cpp365 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in processCanonCameraInfo()
414 ilm.MaxFocal /= (float)ilm.FocalUnits; in Canon_CameraSettings()
415 ilm.MinFocal /= (float)ilm.FocalUnits; in Canon_CameraSettings()
539 ilm.CurFocal /= (float)ilm.FocalUnits; in parseCanonMakernotes()
624 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
632 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
640 memmove(ilm.Lens + 3, ilm.Lens + 2, 62); in parseCanonMakernotes()
648 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
656 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
664 memmove(ilm.Lens + 5, ilm.Lens + 4, 60); in parseCanonMakernotes()
[all …]
H A Dpentax.cpp22 ilm.CamID = id; in setPentaxBodyFeatures()
200 ilm.MinAp4MinFocal = 22.0f; in PentaxLensInfo()
203 ilm.MinAp4MinFocal = 32.0f; in PentaxLensInfo()
206 ilm.MinAp4MinFocal = 45.0f; in PentaxLensInfo()
209 ilm.MinAp4MinFocal = 16.0f; in PentaxLensInfo()
213 ilm.LensFStops = in PentaxLensInfo()
324 ilm.LensID = a | fgetc(ifp); in parsePentaxMakernotes()
444 stread(ilm.Lens, 30, ifp); in parsePentaxMakernotes()
445 strcat(ilm.Lens, " "); in parsePentaxMakernotes()
447 strcat(ilm.Lens, LensInfo); in parsePentaxMakernotes()
[all …]
H A Dmediumformat.cpp85 ilm.CurFocal = getreal(type); in parse_phase_one()
88 stmread(ilm.body, len, ifp); in parse_phase_one()
90 ilm.body[0] = 0; in parse_phase_one()
93 stmread(ilm.Lens, len, ifp); in parse_phase_one()
95 ilm.Lens[0] = 0; in parse_phase_one()
124 ilm.MinFocal = getreal(type); in parse_phase_one()
126 if (ilm.MinFocal > 1000.0f) in parse_phase_one()
128 ilm.MinFocal = 0.0f; in parse_phase_one()
138 ilm.MaxFocal = getreal(type); in parse_phase_one()
380 if (ilm.body[0]) in parse_mos()
[all …]
H A Dnikon.cpp96 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Nikon_CX; in processNikonLensData()
97 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_1INCH; in processNikonLensData()
100 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_Nikon_F; in processNikonLensData()
168 ilm.MinFocal = in processNikonLensData()
171 ilm.MaxFocal = in processNikonLensData()
174 ilm.MaxAp4MinFocal = in processNikonLensData()
184 ilm.CurFocal = in processNikonLensData()
298 ilm.LensMount = ilm.CameraMount = LIBRAW_MOUNT_FixedLens; in parseNikonMakernote()
649 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in parseNikonMakernote()
654 ilm.CameraFormat = ilm.LensFormat = LIBRAW_FORMAT_APSC; in parseNikonMakernote()
[all …]
H A Dsony.cpp358 ilm.CameraMount = ilm.LensMount = LIBRAW_MOUNT_FixedLens; in setSonyBodyFeatures()
458 ilm.LensID -= ilm.AdapterID; in parseSonyLensType2()
484 if (!ilm.LensFormat && !ilm.LensMount) in parseSonyLensFeatures()
536 memmove(ilm.LensFeatures_suf, ilm.LensFeatures_suf + 1, in parseSonyLensFeatures()
664 if ((ilm.LensID > 0x4900) && (ilm.LensID <= 0x5900)) in process_Sony_0x9050()
667 ilm.LensID -= ilm.AdapterID; in process_Sony_0x9050()
672 else if ((ilm.LensID > 0xef00) && (ilm.LensID < 0xffff) && in process_Sony_0x9050()
676 ilm.LensID -= ilm.AdapterID; in process_Sony_0x9050()
1733 if ((ilm.LensID > 0x4900) && (ilm.LensID <= 0x5900)) in parseSonyMakernotes()
1736 ilm.LensID -= ilm.AdapterID; in parseSonyMakernotes()
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/cckohn/
H A Dfforth2.F43 do 198 ilm=1,nlmic
45 198 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
51 201 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
58 199 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
64 202 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
90 298 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
96 398 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
103 299 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
109 399 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
126 500 write(6,108) jlm,(fpfmorth(ilm,jlm,icc),ilm=1,nlmic)
[all …]
H A Dbforthog.F65 do 402 ilm=1,nlmic
67 402 bforth(ilm,jsc,icc) = bforth(ilm,jsc,icc)
71 do 401 ilm=1,nlmic
73 401 bforth(ilm,jsc,icc) = bforth(ilm,jsc,icc)
91 do 404 ilm=1,nlmic
93 404 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
101 414 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
108 405 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
116 415 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
132 200 write(6,101) ilm,(bforth(ilm,j,icc),j=1,nsjc)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/cckohn/
H A Dfforth2.F43 do 198 ilm=1,nlmic
45 198 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
51 201 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
58 199 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
64 202 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
90 298 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
96 398 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
103 299 fpfmorth(ilm,jlm,icc) = fpfmorth(ilm,jlm,icc)
109 399 fpfmporth(ilm,jlm,icc) = fpfmporth(ilm,jlm,icc)
126 500 write(6,108) jlm,(fpfmorth(ilm,jlm,icc),ilm=1,nlmic)
[all …]
H A Dbforthog.F65 do 402 ilm=1,nlmic
67 402 bforth(ilm,jsc,icc) = bforth(ilm,jsc,icc)
71 do 401 ilm=1,nlmic
73 401 bforth(ilm,jsc,icc) = bforth(ilm,jsc,icc)
91 do 404 ilm=1,nlmic
93 404 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
101 414 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
108 405 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
116 415 bforthp(ilm,jsc,icc) = bforthp(ilm,jsc,icc)
132 200 write(6,101) ilm,(bforth(ilm,j,icc),j=1,nsjc)
[all …]

12345678910>>...28