/dports/math/libpgmath/flang-d07daf3/tools/flang2/utils/upper/ |
H A D | upperilm.in | 92 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 D | lowerexp.c | 76 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 D | leica.cpp | 32 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 D | normalize_model.cpp | 671 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 D | mediumformat.cpp | 89 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 D | canon.cpp | 558 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 D | pentax.cpp | 22 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 D | nikon.cpp | 101 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 D | leica.cpp | 32 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 D | normalize_model.cpp | 671 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 D | mediumformat.cpp | 89 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 D | canon.cpp | 558 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 D | pentax.cpp | 22 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 D | nikon.cpp | 101 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 D | leica.cpp | 32 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 D | normalize_model.cpp | 647 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 D | canon.cpp | 365 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 D | pentax.cpp | 22 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 D | mediumformat.cpp | 85 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 D | nikon.cpp | 96 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 D | sony.cpp | 358 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 D | fforth2.F | 43 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 D | bforthog.F | 65 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 D | fforth2.F | 43 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 D | bforthog.F | 65 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 …]
|