<86>Sep 23 07:59:56 userdel[1192197]: delete user 'rooter' <86>Sep 23 07:59:56 userdel[1192197]: removed group 'rooter' owned by 'rooter' <86>Sep 23 07:59:56 userdel[1192197]: removed shadow group 'rooter' owned by 'rooter' <86>Sep 23 07:59:56 groupadd[1192258]: group added to /etc/group: name=rooter, GID=1871 <86>Sep 23 07:59:56 groupadd[1192258]: group added to /etc/gshadow: name=rooter <86>Sep 23 07:59:56 groupadd[1192258]: new group: name=rooter, GID=1871 <86>Sep 23 07:59:56 useradd[1192622]: new user: name=rooter, UID=1871, GID=1871, home=/root, shell=/bin/bash, from=none <86>Sep 23 07:59:56 userdel[1192887]: delete user 'builder' <86>Sep 23 07:59:56 userdel[1192887]: removed group 'builder' owned by 'builder' <86>Sep 23 07:59:56 userdel[1192887]: removed shadow group 'builder' owned by 'builder' <86>Sep 23 07:59:56 groupadd[1192992]: group added to /etc/group: name=builder, GID=1872 <86>Sep 23 07:59:56 groupadd[1192992]: group added to /etc/gshadow: name=builder <86>Sep 23 07:59:56 groupadd[1192992]: new group: name=builder, GID=1872 <86>Sep 23 07:59:56 useradd[1193137]: new user: name=builder, UID=1872, GID=1872, home=/usr/src, shell=/bin/bash, from=none <13>Sep 23 08:00:07 rpmi: libpng16-1.6.40-alt1 sisyphus+323732.100.1.1 1687771859 installed <13>Sep 23 08:00:07 rpmi: libjpeg-2:2.1.2-alt1.2 sisyphus+300827.100.2.1 1653916654 installed <13>Sep 23 08:00:07 rpmi: libexpat-2.5.0-alt1 sisyphus+309227.100.1.1 1667075766 installed <13>Sep 23 08:00:07 rpmi: perl-HTTP-Date-6.06-alt1 sisyphus+324527.100.1.1 1688834564 installed <13>Sep 23 08:00:07 rpmi: perl-Term-ANSIColor-5.01-alt1 sisyphus+244783.100.1.2 1579747505 installed <13>Sep 23 08:00:07 rpmi: libnuma-2.0.14-alt2 sisyphus+278485.100.1.1 1626104243 installed <13>Sep 23 08:00:07 rpmi: libidn2-2.3.4-alt1 sisyphus+309023.100.1.1 1666791089 installed <13>Sep 23 08:00:07 rpmi: libnettle8-3.9.1-alt1 sisyphus+322548.100.1.2 1686176897 installed <13>Sep 23 08:00:07 rpmi: less-633-alt1 sisyphus+328181.300.2.1 1693321749 installed <13>Sep 23 08:00:07 rpmi: perl-Tie-RefHash-1.40-alt1 sisyphus+260329.100.1.1 1603548550 installed <13>Sep 23 08:00:07 rpmi: perl-IO-Stringy-2.113-alt1 sisyphus+289915.300.2.1 1637124493 installed <13>Sep 23 08:00:07 rpmi: perl-Unicode-Normalize-1:5.34.1-alt1 sisyphus+303178.100.1.1 1656953649 installed <13>Sep 23 08:00:07 rpmi: perl-IO-Socket-IP-0.42-alt1 sisyphus+325815.100.1.2 1690571193 installed <13>Sep 23 08:00:07 rpmi: perl-LWP-MediaTypes-6.04-alt1 sisyphus+225468.100.1.1 1553186684 installed <13>Sep 23 08:00:07 rpmi: perl-libnet-1:3.15-alt1 sisyphus+317310.100.1.1 1679580208 installed <13>Sep 23 08:00:07 rpmi: perl-HTML-Tagset-3.20-alt2 1317725093 installed <13>Sep 23 08:00:07 rpmi: perl-Compress-Raw-Zlib-2.206-alt1 sisyphus+325780.100.1.1 1690558898 installed <13>Sep 23 08:00:07 rpmi: libtcl-8.6.13-alt1 sisyphus+310696.100.1.1 1669548256 installed <13>Sep 23 08:00:07 rpmi: libnl3-3.7.0-alt1 sisyphus+307975.100.1.1 1665071450 installed <13>Sep 23 08:00:07 rpmi: libibverbs-46.0-alt1 sisyphus+324149.100.1.1 1688391522 installed <13>Sep 23 08:00:07 rpmi: librdmacm-46.0-alt1 sisyphus+324149.100.1.1 1688391522 installed <13>Sep 23 08:00:07 rpmi: libgdbm-1.8.3-alt10 sisyphus+278100.1600.1.1 1626059138 installed <13>Sep 23 08:00:07 rpmi: libpixman-3:0.42.2-alt1 sisyphus+309549.100.1.1 1667649379 installed <13>Sep 23 08:00:07 rpmi: libxxhash-0.8.0-alt2 sisyphus+277476.100.2.1 1625621318 installed <13>Sep 23 08:00:07 rpmi: libICE-1.1.1-alt1 sisyphus+311428.500.1.1 1670577559 installed <13>Sep 23 08:00:07 rpmi: libwebp7-1.3.2-alt1 sisyphus+329541.100.1.1 1694676226 installed <13>Sep 23 08:00:07 rpmi: liblz4-1:1.9.4-alt1 sisyphus+309416.100.1.1 1667413000 installed <13>Sep 23 08:00:07 rpmi: libsystemd-1:253.8-alt1 sisyphus+326901.100.1.1 1691693059 installed <13>Sep 23 08:00:07 rpmi: libbrotlicommon-1.1.0-alt1 sisyphus+328501.100.1.1 1693598420 installed <13>Sep 23 08:00:07 rpmi: libbrotlidec-1.1.0-alt1 sisyphus+328501.100.1.1 1693598420 installed <13>Sep 23 08:00:07 rpmi: libbrotlienc-1.1.0-alt1 sisyphus+328501.100.1.1 1693598420 installed <13>Sep 23 08:00:07 rpmi: libgraphite2-1.3.14-alt2.1 sisyphus+279571.100.1.2 1626605157 installed <13>Sep 23 08:00:07 rpmi: libharfbuzz-8.2.1-alt1 sisyphus+329986.40.2.1 1695293822 installed <13>Sep 23 08:00:07 rpmi: libfreetype-2.13.2-alt1 sisyphus+328677.100.1.1 1693834346 installed <13>Sep 23 08:00:07 rpmi: libfontconfig1-2.14.2-alt8 sisyphus+328444.100.1.1 1693553407 installed <13>Sep 23 08:00:07 rpmi: libquadmath0-13.2.1-alt2 sisyphus+327572.100.1.1 1692472364 installed <13>Sep 23 08:00:07 rpmi: libp11-kit-1:0.24.1-alt2 sisyphus+324666.100.1.1 1689083450 installed <13>Sep 23 08:00:07 rpmi: libtasn1-4.19.0-alt3 sisyphus+327816.100.1.1 1692802618 installed <13>Sep 23 08:00:07 rpmi: libquadmath13-devel-13.2.1-alt2 sisyphus+327572.100.1.1 1692472364 installed <13>Sep 23 08:00:07 rpmi: libgfortran5-13.2.1-alt2 sisyphus+327572.100.1.1 1692472364 installed <13>Sep 23 08:00:07 rpmi: libwoff2-1.0.2-alt3 sisyphus+302729.100.1.1 1656351541 installed <13>Sep 23 08:00:07 rpmi: libdbus-1.14.10-alt1 sisyphus+328676.100.1.1 1693833782 installed <13>Sep 23 08:00:07 rpmi: libavahi-0.8-alt2 sisyphus+321176.300.10.2 1684803998 installed <13>Sep 23 08:00:07 rpmi: libSM-1.2.4-alt1 sisyphus+312057.200.1.1 1671526918 installed <13>Sep 23 08:00:07 rpmi: tcl-8.6.13-alt1 sisyphus+310696.100.1.1 1669548256 installed <13>Sep 23 08:00:07 rpmi: perl-unicore-1:5.34.1-alt1 sisyphus+303178.100.1.1 1656953516 installed <13>Sep 23 08:00:07 rpmi: perl-Net-IDN-Encode-2.500-alt1 sisyphus+279723.3100.1.1 1626649674 installed <13>Sep 23 08:00:07 rpmi: perl-OLE-Storage_Lite-0.22-alt1 sisyphus+315433.100.1.1 1676717427 installed <13>Sep 23 08:00:07 rpmi: perl-autodie-2.36-alt1 sisyphus+314475.100.1.1 1675194557 installed <13>Sep 23 08:00:07 rpmi: libhogweed6-3.9.1-alt1 sisyphus+322548.100.1.2 1686176897 installed <13>Sep 23 08:00:08 rpmi: libgnutls30-3.8.1-alt2 sisyphus+326772.40.3.1 1692114472 installed <13>Sep 23 08:00:08 rpmi: libngtcp2.13-0.16.0-alt1 sisyphus+323677.40.3.1 1687690560 installed <13>Sep 23 08:00:08 rpmi: libngtcp2_crypto_gnutls5-0.16.0-alt1 sisyphus+323677.40.3.1 1687690560 installed <13>Sep 23 08:00:08 rpmi: libx265-199-3.5-alt1.1 sisyphus+277560.100.1.1 1625696944 installed <13>Sep 23 08:00:08 rpmi: libnuma-devel-2.0.14-alt2 sisyphus+278485.100.1.1 1626104243 installed <13>Sep 23 08:00:08 rpmi: perl-Data-Dump-1.25-alt1 sisyphus+276551.100.1.1 1625126880 installed <13>Sep 23 08:00:08 rpmi: perl-File-Listing-6.16-alt1 sisyphus+325783.100.1.1 1690559356 installed <13>Sep 23 08:00:08 rpmi: groff-base-1.22.3-alt2 sisyphus+275306.100.2.1 1624538359 installed <13>Sep 23 08:00:08 rpmi: zziplib-0.13.72-alt1 sisyphus+278032.100.1.2 1625982012 installed <13>Sep 23 08:00:08 rpmi: tex-common-0.2-alt4 sisyphus+276869.100.1.1 1625246366 installed <13>Sep 23 08:00:08 rpmi: t1utils-1.42-alt1 sisyphus+278458.100.1.1 1626102087 installed <13>Sep 23 08:00:08 rpmi: ttf2pt1-3.4.4-alt1.qa1 sisyphus+275192.100.2.1 1624905846 installed <13>Sep 23 08:00:08 rpmi: perl-TimeDate-2.33-alt1 sisyphus+252901.100.1.1 1591387378 installed <13>Sep 23 08:00:08 rpmi: perl-Text-Unidecode-1.30-alt1 1480505027 installed <13>Sep 23 08:00:08 rpmi: perl-Unicode-Map-0.112-alt8 sisyphus+279723.3600.1.1 1626650099 installed <13>Sep 23 08:00:08 rpmi: perl-Math-Complex-1.59-alt1 1334229876 installed <13>Sep 23 08:00:08 rpmi: perl-Locale-Maketext-Simple-0.21-alt3 1321333616 installed <13>Sep 23 08:00:08 rpmi: perl-IPC-System-Simple-1.30-alt1 sisyphus+248544.100.1.1 1585154078 installed <13>Sep 23 08:00:08 rpmi: perl-IPC-Run3-0.048-alt1 1410690027 installed <13>Sep 23 08:00:08 rpmi: psutils-2:2.07-alt1 sisyphus+299224.700.1.1 1651226336 installed <13>Sep 23 08:00:08 rpmi: perl-Try-Tiny-0.31-alt1 sisyphus+290597.100.1.1 1637915507 installed <13>Sep 23 08:00:08 rpmi: perl-Module-Load-0.36-alt1 sisyphus+258992.100.1.1 1601543407 installed <13>Sep 23 08:00:08 rpmi: perl-IO-Compress-Brotli-2:0.004001-alt3 sisyphus+302124.100.1.1 1655283098 installed <13>Sep 23 08:00:08 rpmi: perl-File-Which-1.27-alt1 sisyphus+271986.100.1.1 1621196035 installed <13>Sep 23 08:00:08 rpmi: perl-File-Copy-Recursive-0.45-alt1 sisyphus+235291.100.1.1 1564606222 installed <13>Sep 23 08:00:08 rpmi: perl-Digest-SHA1-2.13-alt5.2 sisyphus+279723.3400.1.1 1626650018 installed <13>Sep 23 08:00:08 rpmi: perl-Digest-Perl-MD5-1.9-alt1 1394057208 installed <13>Sep 23 08:00:08 rpmi: perl-Crypt-RC4-2.02-alt1 1319549646 installed <13>Sep 23 08:00:08 rpmi: perl-Clone-0.46-alt1 sisyphus+308850.100.1.3 1666451819 installed <13>Sep 23 08:00:08 rpmi: perl-Term-Cap-1.18-alt1 sisyphus+315126.100.1.1 1676227129 installed <13>Sep 23 08:00:08 rpmi: perl-Pod-Escapes-1.07-alt1 1418767892 installed <13>Sep 23 08:00:08 rpmi: perl-IO-String-1.08-alt2 1321677915 installed <13>Sep 23 08:00:08 rpmi: perl-Filter-1.64-alt1 sisyphus+305464.100.1.1 1660815328 installed <13>Sep 23 08:00:08 rpmi: perl-Encode-3.19-alt1 sisyphus+304776.100.1.1 1659623414 installed <13>Sep 23 08:00:08 rpmi: perl-URI-5.21-alt1 sisyphus+327918.100.1.1 1692972838 installed <13>Sep 23 08:00:08 rpmi: perl-HTML-Parser-3.81-alt1 sisyphus+314462.100.1.1 1675193797 installed <13>Sep 23 08:00:08 rpmi: perl-WWW-RobotRules-6.02-alt1 1329756211 installed <13>Sep 23 08:00:08 rpmi: perl-Pod-Simple-3.45-alt1 sisyphus+321554.100.1.1 1684663135 installed <13>Sep 23 08:00:08 rpmi: perl-Pod-Usage-2.03-alt1 sisyphus+300436.100.1.3 1653292807 installed <13>Sep 23 08:00:08 rpmi: perl-podlators-5.01-alt1 sisyphus+312638.100.1.1 1672339228 installed <13>Sep 23 08:00:08 rpmi: perl-Encode-Locale-1.05-alt1 1444608613 installed <13>Sep 23 08:00:08 rpmi: perl-IO-HTML-1.004-alt1 sisyphus+258983.100.1.1 1601542619 installed <13>Sep 23 08:00:08 rpmi: perl-Text-CSV_XS-1.51-alt1 sisyphus+327117.100.1.1 1691932339 installed <13>Sep 23 08:00:08 rpmi: perl-Spreadsheet-ParseExcel-1:0.65-alt1 1395677487 installed <13>Sep 23 08:00:08 rpmi: perl-Compress-Raw-Bzip2-2.206-alt1 sisyphus+325779.100.1.1 1690558767 installed <13>Sep 23 08:00:08 rpmi: perl-IO-Compress-2.206-alt1 sisyphus+325819.100.1.1 1690563199 installed <13>Sep 23 08:00:08 rpmi: perl-HTTP-Message-6.44-alt1 sisyphus+309106.100.1.1 1666913573 installed <13>Sep 23 08:00:08 rpmi: perl-Net-HTTP-6.23-alt1 sisyphus+323470.100.1.1 1687422469 installed <13>Sep 23 08:00:08 rpmi: perl-HTML-Form-6.11-alt1 sisyphus+315122.100.1.1 1676226686 installed <13>Sep 23 08:00:08 rpmi: perl-HTTP-Negotiate-6.01-alt1 1329760563 installed <13>Sep 23 08:00:08 rpmi: perl-libwww-6.72-alt1 sisyphus+325791.100.1.2 1690563984 installed <13>Sep 23 08:00:08 rpmi: perl-HTML-Formatter-2.16-alt2 sisyphus+306600.100.1.1 1663005434 installed <13>Sep 23 08:00:08 rpmi: perl-HTML-Tree-5.07-alt1 sisyphus+277105.100.1.1 1625402682 installed <13>Sep 23 08:00:08 rpmi: perl-XML-Parser-2.46-alt1 sisyphus+279723.1300.1.1 1626649160 installed <13>Sep 23 08:00:08 rpmi: perl-XML-XPath-1.48-alt1 sisyphus+305097.100.1.2 1660226797 installed <13>Sep 23 08:00:08 rpmi: perl-HTTP-Cookies-6.10-alt1 sisyphus+264349.100.1.1 1609891183 installed <13>Sep 23 08:00:08 rpmi: perl-WWW-Mechanize-2.17-alt2 sisyphus+327930.100.1.1 1692978437 installed <13>Sep 23 08:00:08 rpmi: perl-IO-Zlib-1.14-alt1 sisyphus+313249.100.1.1 1673493698 installed <13>Sep 23 08:00:08 rpmi: perl-Archive-Tar-3.02-alt1 sisyphus+318647.100.1.1 1681742479 installed <13>Sep 23 08:00:08 rpmi: rpm-macros-mpi-selector-1.0.3-alt4 sisyphus+299671.100.1.1 1651928220 installed <13>Sep 23 08:00:08 rpmi: tcsh-6.20.00-alt4 sisyphus+328733.200.1.1 1693865588 installed <13>Sep 23 08:00:08 rpmi: mpi-selector-1.0.3-alt4 sisyphus+299671.100.1.1 1651928220 installed <13>Sep 23 08:00:08 rpmi: openmpi-2.0.1-alt9 sisyphus+328620.200.2.1 1693816184 installed <13>Sep 23 08:00:08 rpmi: libtexlua5-2021-alt5_3 sisyphus+325758.20.3.1 1690546307 installed <13>Sep 23 08:00:08 rpmi: libteckit-2.5.1-alt2.1 sisyphus+275250.100.2.1 1624906331 installed <13>Sep 23 08:00:08 rpmi: libteckit-utils-2.5.1-alt2.1 sisyphus+275250.100.2.1 1624906331 installed <13>Sep 23 08:00:08 rpmi: libsynctex2-2021-alt5_3 sisyphus+325758.20.3.1 1690546307 installed <13>Sep 23 08:00:08 rpmi: libqqwing-1.3.4-alt2 sisyphus+275255.100.2.1 1624562963 installed <13>Sep 23 08:00:08 rpmi: qqwing-1.3.4-alt2 sisyphus+275255.100.2.1 1624562963 installed <13>Sep 23 08:00:08 rpmi: libpotrace-1.16-alt2 sisyphus+328401.100.1.1 1693483625 installed <13>Sep 23 08:00:08 rpmi: libpipeline-1.5.7-alt1_1 sisyphus+312433.100.1.1 1671879776 installed <13>Sep 23 08:00:09 rpmi: man-db-2.11.2-alt1 sisyphus+324180.200.2.1 1688471224 installed <13>Sep 23 08:00:09 rpmi: libpaper2-2:2.1.1-alt3 sisyphus+325767.100.2.2 1690582175 installed <13>Sep 23 08:00:09 rpmi: libmpdec3-2.5.1-alt3 sisyphus+314490.500.5.1 1675432033 installed <13>Sep 23 08:00:09 rpmi: libkpathsea6-2021-alt5_3 sisyphus+325758.20.3.1 1690546307 installed <13>Sep 23 08:00:09 rpmi: libptexenc1-2021-alt5_3 sisyphus+325758.20.3.1 1690546307 installed <13>Sep 23 08:00:09 rpmi: libicu73-1:7.3.2-alt1 sisyphus+323036.100.1.1 1686763401 installed <13>Sep 23 08:00:09 rpmi: libibumad-46.0-alt1 sisyphus+324149.100.1.1 1688391522 installed <13>Sep 23 08:00:09 rpmi: libibmad-46.0-alt1 sisyphus+324149.100.1.1 1688391522 installed <13>Sep 23 08:00:09 rpmi: libibnetdisc-46.0-alt1 sisyphus+324149.100.1.1 1688391522 installed <13>Sep 23 08:00:10 rpmi: librav1e-0.6.6-alt1 sisyphus+320651.100.1.1 1684313157 installed <13>Sep 23 08:00:10 rpmi: desktop-file-utils-0.26-alt4 sisyphus+324226.100.1.1 1688469484 installed <13>Sep 23 08:00:10 rpmi: shared-mime-info-2.2-alt1 sisyphus+297388.100.1.1 1648466617 installed <13>Sep 23 08:00:10 rpmi: libgdk-pixbuf-locales-2.42.10-alt1 sisyphus+308991.100.1.1 1666721198 installed <13>Sep 23 08:00:10 rpmi: libde265-1.0.12-alt1 sisyphus+329539.100.1.1 1694672072 installed <13>Sep 23 08:00:10 rpmi: libdav1d-1.2.1-alt1 sisyphus+323931.100.1.1 1688113640 installed <13>Sep 23 08:00:10 rpmi: libb2-0.98.1-alt1_1 sisyphus+291614.100.1.1 1638962878 installed <13>Sep 23 08:00:10 rpmi: libaom3-3.5.0-alt1 sisyphus+312085.100.1.1 1671551781 installed <13>Sep 23 08:00:10 rpmi: hd2u-1.0.3-alt2 sisyphus+275312.100.2.1 1624906677 installed <13>Sep 23 08:00:10 rpmi: gsettings-desktop-schemas-data-45.0-alt1 sisyphus+325066.400.6.2 1695203930 installed <13>Sep 23 08:00:10 rpmi: libgio-2.78.0-alt1 sisyphus+329802.100.1.1 1694991244 installed <13>Sep 23 08:00:10 rpmi: gsettings-desktop-schemas-45.0-alt1 sisyphus+325066.400.6.2 1695203930 installed <13>Sep 23 08:00:10 rpmi: publicsuffix-list-dafsa-20230701-alt1 sisyphus+324303.100.1.1 1688561153 installed <13>Sep 23 08:00:10 rpmi: libpsl-0.21.2-alt1 sisyphus+312536.100.1.1 1672131180 installed <13>Sep 23 08:00:10 rpmi: libnghttp3.7-0.12.0-alt1 sisyphus+323677.20.3.1 1687690509 installed <13>Sep 23 08:00:10 rpmi: libnghttp2-1.54.0-alt1 sisyphus+324359.10000.11.1 1689368796 installed <13>Sep 23 08:00:10 rpmi: openldap-common-2.6.4-alt1 sisyphus+324359.600.5.1 1689262595 installed <13>Sep 23 08:00:10 rpmi: libntlm-1.5-alt1 sisyphus+278100.3300.1.1 1626059663 installed <13>Sep 23 08:00:10 rpmi: libidn-1.37-alt2 sisyphus+300849.100.1.1 1653769693 installed <13>Sep 23 08:00:10 rpmi: libedit3-3.1.20221030-alt1 sisyphus+327935.100.1.1 1692980094 installed <13>Sep 23 08:00:10 rpmi: libX11-locales-3:1.8.6-alt1 sisyphus+323114.100.1.1 1686850054 installed <13>Sep 23 08:00:10 rpmi: libXdmcp-1.1.4-alt1 sisyphus+311188.1000.1.1 1670233860 installed <13>Sep 23 08:00:10 rpmi: libXau-1.0.11-alt1 sisyphus+311428.100.1.1 1670577440 installed <13>Sep 23 08:00:10 rpmi: libxcb-1.16-alt1 sisyphus+327325.200.1.1 1692276267 installed <13>Sep 23 08:00:10 rpmi: libX11-3:1.8.6-alt1 sisyphus+323114.100.1.1 1686850057 installed <13>Sep 23 08:00:10 rpmi: libXt-1.2.1-alt1 sisyphus+265202.200.1.1 1611565459 installed <13>Sep 23 08:00:10 rpmi: libXext-1.3.5-alt1 sisyphus+309285.100.1.1 1667212413 installed <13>Sep 23 08:00:10 rpmi: libXmu-1.1.4-alt1 sisyphus+308663.1000.1.1 1666168416 installed <13>Sep 23 08:00:10 rpmi: libXpm-3.5.15-alt1 sisyphus+313628.100.1.1 1674030939 installed <13>Sep 23 08:00:10 rpmi: libXrender-0.9.11-alt1 sisyphus+308841.100.1.1 1666436131 installed <13>Sep 23 08:00:10 rpmi: libXft-2.3.7-alt1 sisyphus+310164.100.1.1 1668680609 installed <13>Sep 23 08:00:10 rpmi: libtk-8.6.13-alt1 sisyphus+310696.200.1.1 1669548528 installed <13>Sep 23 08:00:10 rpmi: tk-8.6.13-alt1 sisyphus+310696.200.1.1 1669548528 installed <13>Sep 23 08:00:10 rpmi: perl-Tk-804.036-alt1 sisyphus+279723.3300.1.1 1626649982 installed <13>Sep 23 08:00:10 rpmi: libcairo-1:1.17.8-alt1 sisyphus+324101.100.2.1 1690287712 installed <13>Sep 23 08:00:11 rpmi: libXaw-1.0.14-alt1 sisyphus+284644.100.1.1 1630910242 installed <13>Sep 23 08:00:11 rpmi: libdeflate-1.19-alt1 sisyphus+329822.100.2.2 1695269332 installed <13>Sep 23 08:00:11 rpmi: libtiff5-4.4.0-alt4 sisyphus+322581.100.1.2 1686180093 installed <13>Sep 23 08:00:11 rpmi: libgdk-pixbuf-2.42.10-alt1 sisyphus+308991.100.1.1 1666721201 installed <13>Sep 23 08:00:11 rpmi: libheif-1.15.2-alt1.1 sisyphus+328363.100.1.1 1693460606 installed <13>Sep 23 08:00:11 rpmi: libgd3-2.3.3-alt1 sisyphus+286379.100.1.1 1633353310 installed <13>Sep 23 08:00:11 rpmi: libpaper-1.1.28-alt4 sisyphus+325501.100.1.1 1690226536 installed <13>Sep 23 08:00:11 rpmi: libopenjpeg2.0-2.5.0-alt1 sisyphus+299926.300.3.1 1652478844 installed <13>Sep 23 08:00:11 rpmi: libverto-0.3.2-alt1_1 sisyphus+321176.2200.10.2 1684806164 installed <13>Sep 23 08:00:11 rpmi: liblmdb-0.9.29-alt1.1 sisyphus+306630.100.1.1 1663072361 installed <13>Sep 23 08:00:11 rpmi: libkeyutils-1.6.3-alt1 sisyphus+266061.100.1.1 1612919567 installed <13>Sep 23 08:00:11 rpmi: libcom_err-1.46.4.0.5.4cda-alt1 sisyphus+283826.100.1.1 1629975361 installed <13>Sep 23 08:00:11 rpmi: xml-utils-1:2.10.4-alt1 sisyphus+311250.4140.175.1 1685629210 installed <13>Sep 23 08:00:11 rpmi: fontconfig-2.14.2-alt8 sisyphus+328444.100.1.1 1693553407 installed Updating fonts cache: <29>Sep 23 08:00:12 fontconfig: Updating fonts cache: succeeded [ DONE ] <13>Sep 23 08:00:12 rpmi: fonts-type1-urw-3:1.0.7pre44-alt3 sisyphus+224082.100.2.1 1552406640 installed <13>Sep 23 08:00:12 rpmi: gcc-fortran-common-1.4.27-alt1 sisyphus+278099.1300.1.1 1626028636 installed <13>Sep 23 08:00:12 rpmi: libgfortran13-devel-13.2.1-alt2 sisyphus+327572.100.1.1 1692472364 installed <13>Sep 23 08:00:13 rpmi: gcc13-fortran-13.2.1-alt2 sisyphus+327572.100.1.1 1692472364 installed <13>Sep 23 08:00:13 rpmi: gcc-fortran-13-alt1 sisyphus+323337.300.1.1 1687268227 installed <13>Sep 23 08:00:13 rpmi: gcc-c++-common-1.4.27-alt1 sisyphus+278099.1300.1.1 1626028636 installed <13>Sep 23 08:00:13 rpmi: libstdc++13-devel-13.2.1-alt2 sisyphus+327572.100.1.1 1692472364 installed <13>Sep 23 08:00:14 rpmi: gcc13-c++-13.2.1-alt2 sisyphus+327572.100.1.1 1692472364 installed <13>Sep 23 08:00:14 rpmi: gcc-c++-13-alt1 sisyphus+323337.300.1.1 1687268227 installed <13>Sep 23 08:00:14 rpmi: ed-1:0.2-alt10 sisyphus+278100.1100.1.1 1626056857 installed <13>Sep 23 08:00:14 rpmi: libdevmapper-1.02.196-alt1 sisyphus+328928.400.3.1 1694103939 installed <13>Sep 23 08:00:14 rpmi: mount-2.39.2-alt1 sisyphus+329530.100.1.1 1694630203 installed <13>Sep 23 08:00:15 rpmi: losetup-2.39.2-alt1 sisyphus+329530.100.1.1 1694630203 installed <13>Sep 23 08:00:15 rpmi: lsblk-2.39.2-alt1 sisyphus+329530.100.1.1 1694630203 installed <13>Sep 23 08:00:15 rpmi: diffstat-1.64-alt1 sisyphus+278100.700.1.1 1626056686 installed <13>Sep 23 08:00:15 rpmi: libdialog-1.3.20171209-alt2 sisyphus+328094.100.1.1 1693228849 installed <13>Sep 23 08:00:15 rpmi: dialog-1.3.20171209-alt2 sisyphus+328094.100.1.1 1693228849 installed <13>Sep 23 08:00:15 rpmi: rpm-macros-alternatives-0.5.2-alt2 sisyphus+315270.200.2.1 1676457367 installed <13>Sep 23 08:00:15 rpmi: alternatives-0.5.2-alt2 sisyphus+315270.200.2.1 1676457367 installed <13>Sep 23 08:00:15 rpmi: ca-certificates-2023.07.31-alt1 sisyphus+326137.200.1.1 1690809798 installed <13>Sep 23 08:00:15 rpmi: ca-trust-0.1.4-alt1 sisyphus+308690.100.1.1 1666182992 installed <13>Sep 23 08:00:15 rpmi: p11-kit-trust-1:0.24.1-alt2 sisyphus+324666.100.1.1 1689083450 installed <13>Sep 23 08:00:15 rpmi: libcrypto3-3.1.3-alt1 sisyphus+329935.40.3.2 1695159275 installed <13>Sep 23 08:00:15 rpmi: libssl3-3.1.3-alt1 sisyphus+329935.40.3.2 1695159275 installed <86>Sep 23 08:00:15 groupadd[1252000]: group added to /etc/group: name=_keytab, GID=999 <86>Sep 23 08:00:15 groupadd[1252000]: group added to /etc/gshadow: name=_keytab <86>Sep 23 08:00:15 groupadd[1252000]: new group: name=_keytab, GID=999 <13>Sep 23 08:00:15 rpmi: libkrb5-1.21.2-alt1 sisyphus+327265.100.1.1 1692185512 installed <13>Sep 23 08:00:15 rpmi: libkmod-30-alt1 sisyphus+324359.1200.6.1 1689326342 installed <13>Sep 23 08:00:15 rpmi: kmod-30-alt1 sisyphus+324359.1200.6.1 1689326342 installed <13>Sep 23 08:00:15 rpmi: dmsetup-1.02.196-alt1 sisyphus+328928.400.3.1 1694103939 installed <86>Sep 23 08:00:15 groupadd[1252512]: group added to /etc/group: name=tape, GID=998 <86>Sep 23 08:00:15 groupadd[1252512]: group added to /etc/gshadow: name=tape <86>Sep 23 08:00:15 groupadd[1252512]: new group: name=tape, GID=998 <86>Sep 23 08:00:15 groupadd[1252552]: group added to /etc/group: name=dialout, GID=997 <86>Sep 23 08:00:15 groupadd[1252552]: group added to /etc/gshadow: name=dialout <86>Sep 23 08:00:15 groupadd[1252552]: new group: name=dialout, GID=997 <86>Sep 23 08:00:15 groupadd[1252611]: group added to /etc/group: name=input, GID=996 <86>Sep 23 08:00:15 groupadd[1252611]: group added to /etc/gshadow: name=input <86>Sep 23 08:00:15 groupadd[1252611]: new group: name=input, GID=996 <86>Sep 23 08:00:15 groupadd[1252664]: group added to /etc/group: name=video, GID=995 <86>Sep 23 08:00:15 groupadd[1252664]: group added to /etc/gshadow: name=video <86>Sep 23 08:00:15 groupadd[1252664]: new group: name=video, GID=995 <86>Sep 23 08:00:15 groupadd[1252781]: group added to /etc/group: name=render, GID=994 <86>Sep 23 08:00:15 groupadd[1252781]: group added to /etc/gshadow: name=render <86>Sep 23 08:00:15 groupadd[1252781]: new group: name=render, GID=994 <86>Sep 23 08:00:15 groupadd[1252892]: group added to /etc/group: name=sgx, GID=993 <86>Sep 23 08:00:15 groupadd[1252892]: group added to /etc/gshadow: name=sgx <86>Sep 23 08:00:15 groupadd[1252892]: new group: name=sgx, GID=993 <13>Sep 23 08:00:15 rpmi: udev-1:253.8-alt1 sisyphus+326901.100.1.1 1691693059 installed <13>Sep 23 08:00:16 rpmi: rdma-core-46.0-alt1 sisyphus+324149.100.1.1 1688391522 installed <13>Sep 23 08:00:16 rpmi: rdma-core-devel-46.0-alt1 sisyphus+324149.100.1.1 1688391522 installed <13>Sep 23 08:00:16 rpmi: libcups-2.4.2-alt3 sisyphus+325006.300.1.1 1689496073 installed <13>Sep 23 08:00:17 rpmi: libgs-10.01.1-alt1 sisyphus+318450.100.1.1 1681389085 installed <13>Sep 23 08:00:18 rpmi: ghostscript-common-10.01.1-alt1 sisyphus+318450.100.1.1 1681389065 installed <13>Sep 23 08:00:18 rpmi: ghostscript-classic-10.01.1-alt1 sisyphus+318450.100.1.1 1681389085 installed <13>Sep 23 08:00:19 rpmi: ghostscript-10.01.1-alt1 sisyphus+318450.100.1.1 1681389085 installed <13>Sep 23 08:00:19 rpmi: ghostscript-module-X-10.01.1-alt1 sisyphus+318450.100.1.1 1681389085 installed <13>Sep 23 08:00:19 rpmi: libgsasl-1.8.0-alt3 sisyphus+275307.100.1.2 1624478553 installed <86>Sep 23 08:00:19 groupadd[1261789]: group added to /etc/group: name=sasl, GID=992 <86>Sep 23 08:00:19 groupadd[1261789]: group added to /etc/gshadow: name=sasl <86>Sep 23 08:00:19 groupadd[1261789]: new group: name=sasl, GID=992 <13>Sep 23 08:00:19 rpmi: libsasl2-3-2.1.27-alt2.2 sisyphus+324359.6000.12.1 1689392231 installed <13>Sep 23 08:00:19 rpmi: libldap2-2.6.4-alt1 sisyphus+324359.600.5.1 1689262623 installed <13>Sep 23 08:00:19 rpmi: perl-Net-SSLeay-1.92-alt1 sisyphus+325072.500.5.1 1689613737 installed <13>Sep 23 08:00:19 rpmi: perl-IO-Socket-SSL-2.083-alt1 sisyphus+321544.100.1.2 1684665884 installed <13>Sep 23 08:00:19 rpmi: perl-Net-HTTPS-6.23-alt1 sisyphus+323470.100.1.1 1687422469 installed <13>Sep 23 08:00:19 rpmi: perl-LWP-Protocol-https-6.11-alt1 sisyphus+325810.100.1.2 1690571190 installed <13>Sep 23 08:00:19 rpmi: python3-3.11.4-alt3 sisyphus+328191.1000.5.1 1693610619 installed <13>Sep 23 08:00:20 rpmi: python3-base-3.11.4-alt3 sisyphus+328191.1000.5.1 1693610619 installed <13>Sep 23 08:00:20 rpmi: openssh-common-9.4p1-alt1 sisyphus+327935.1700.3.1 1692995996 installed <86>Sep 23 08:00:20 groupadd[1267478]: group added to /etc/group: name=sshagent, GID=991 <86>Sep 23 08:00:20 groupadd[1267478]: group added to /etc/gshadow: name=sshagent <86>Sep 23 08:00:20 groupadd[1267478]: new group: name=sshagent, GID=991 <13>Sep 23 08:00:20 rpmi: openssh-clients-9.4p1-alt1 sisyphus+327935.1700.3.1 1692995996 installed <13>Sep 23 08:00:20 rpmi: rsync-3.2.7-alt1 sisyphus+325006.2000.1.1 1689498390 installed <13>Sep 23 08:00:20 rpmi: libssh2-1.11.0-alt1 sisyphus+327652.100.1.1 1692636581 installed <13>Sep 23 08:00:20 rpmi: libcurl-8.3.0-alt1 sisyphus+329453.400.5.1 1694962591 installed <13>Sep 23 08:00:20 rpmi: git-core-2.33.8-alt1 sisyphus+324359.6600.12.1 1689393780 installed <13>Sep 23 08:00:20 rpmi: foomatic-db-engine-4.0.12-alt1 sisyphus+278189.100.1.1 1626076208 installed <13>Sep 23 08:00:21 rpmi: texlive-2021-alt5_3 sisyphus+325758.20.3.1 1690546307 installed <13>Sep 23 08:00:34 rpmi: texlive-collection-basic-2021-alt1_4 sisyphus+285425.100.1.1 1631913341 installed <13>Sep 23 08:00:34 rpmi: openmpi-devel-2.0.1-alt9 sisyphus+328620.200.2.1 1693816184 installed egrep: warning: egrep is obsolescent; using grep -E Building target platforms: i586 Building for target i586 Wrote: /usr/src/in/nosrpm/mct-2.8.3-alt4.nosrc.rpm (w1.gzdio) Installing mct-2.8.3-alt4.src.rpm Building target platforms: i586 Building for target i586 Executing(%prep): /bin/sh -e /usr/src/tmp/rpm-tmp.44658 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + rm -rf mct-2.8.3 + echo 'Source #0 (MCT.tar.gz):' Source #0 (MCT.tar.gz): + /bin/gzip -dc /usr/src/RPM/SOURCES/MCT.tar.gz + /bin/tar -xf - + cd mct-2.8.3 + /bin/chmod -c -Rf u+rwX,go-w . ++ find ./ -name .cvsignore + rm -f + exit 0 Executing(%build): /bin/sh -e /usr/src/tmp/rpm-tmp.44658 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd mct-2.8.3 + mpi-selector --set openmpi + source /usr/lib/openmpi/bin/mpivars.sh ++ echo /usr/src/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/games ++ grep -q /usr/lib/openmpi/bin ++ PATH=/usr/lib/openmpi/bin:/usr/src/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/games ++ export PATH ++ echo ++ grep -q /usr/lib/openmpi/lib ++ LD_LIBRARY_PATH=/usr/lib/openmpi/lib ++ export LD_LIBRARY_PATH ++ echo ++ grep -q /usr/lib/openmpi/man ++ MANPATH=/usr/lib/openmpi/man: ++ export MANPATH + export 'OMPI_LDFLAGS=-Wl,--as-needed,-rpath,/usr/lib/openmpi/lib -L/usr/lib/openmpi/lib' + OMPI_LDFLAGS='-Wl,--as-needed,-rpath,/usr/lib/openmpi/lib -L/usr/lib/openmpi/lib' + autoreconf -fisv autoreconf-default: export WARNINGS= autoreconf-default: Entering directory '.' autoreconf-default: configure.ac: not using Gettext autoreconf-default: running: aclocal --force autoreconf-default: configure.ac: tracing autoreconf-default: configure.ac: not using Libtool autoreconf-default: configure.ac: not using Intltool autoreconf-default: configure.ac: not using Gtkdoc autoreconf-default: running: /usr/bin/autoconf-2.71 --force configure.ac:9: warning: The macro `AC_CONFIG_HEADER' is obsolete. configure.ac:9: You should run autoupdate. ./lib/autoconf/status.m4:719: AC_CONFIG_HEADER is expanded from... configure.ac:9: the top level configure.ac:14: warning: The macro `AC_HELP_STRING' is obsolete. configure.ac:14: You should run autoupdate. ./lib/autoconf/general.m4:204: AC_HELP_STRING is expanded from... configure.ac:14: the top level configure.ac:20: warning: The macro `AC_HELP_STRING' is obsolete. configure.ac:20: You should run autoupdate. ./lib/autoconf/general.m4:204: AC_HELP_STRING is expanded from... configure.ac:20: the top level configure.ac:26: warning: The macro `AC_HELP_STRING' is obsolete. configure.ac:26: You should run autoupdate. ./lib/autoconf/general.m4:204: AC_HELP_STRING is expanded from... configure.ac:26: the top level configure.ac:32: warning: The macro `AC_HELP_STRING' is obsolete. configure.ac:32: You should run autoupdate. ./lib/autoconf/general.m4:204: AC_HELP_STRING is expanded from... configure.ac:32: the top level configure.ac:36: warning: The macro `AC_HELP_STRING' is obsolete. configure.ac:36: You should run autoupdate. ./lib/autoconf/general.m4:204: AC_HELP_STRING is expanded from... configure.ac:36: the top level autoreconf-default: running: /usr/bin/autoheader-2.71 --force autoreconf-default: configure.ac: not using Automake autoreconf-default: Leaving directory '.' + MPILIBS='-L/usr/lib/openmpi/lib -lmpi_f90' + MPILIBS='-L/usr/lib/openmpi/lib -lmpi_f90 -lmpi_f77 -lmpi -Wl,-rpath,/usr/lib/openmpi/lib' + CFLAGS='-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic' + export CFLAGS + CXXFLAGS='-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic' + export CXXFLAGS + FFLAGS='-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic' + export FFLAGS + FCFLAGS='-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic' + export FCFLAGS + '[' -n '' ']' ++ printf %s '-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic' ++ sed -r 's/(^|[[:space:]]+)-[^m][^[:space:]]*//g' + ASFLAGS=' -march=i586 -mtune=generic' + export ASFLAGS + export lt_cv_deplibs_check_method=pass_all + lt_cv_deplibs_check_method=pass_all + readlink -e -- ./configure + xargs -ri dirname -- '{}' + xargs -ri find '{}' -type f '(' -name config.sub -or -name config.guess ')' -printf '%h/\n' + sort -u + xargs -rn1 install -pm755 -- /usr/share/gnu-config/config.sub /usr/share/gnu-config/config.guess + configure_runstatedir_flags= + grep -qF runstatedir=DIR ./configure + configure_runstatedir_flags=--runstatedir=/var/run + ./configure --build=i586-alt-linux --host=i586-alt-linux --prefix=/usr --exec-prefix=/usr --bindir=/usr/bin --sbindir=/usr/sbin --sysconfdir=/etc --datadir=/usr/share --includedir=/usr/include --libdir=/usr/lib --libexecdir=/usr/lib --localstatedir=/var/lib --sharedstatedir=/var/lib --mandir=/usr/share/man --infodir=/usr/share/info --disable-dependency-tracking --disable-silent-rules --runstatedir=/var/run --without-included-gettext 'MPILIBS=-L/usr/lib/openmpi/lib -lmpi_f90 -lmpi_f77 -lmpi -Wl,-rpath,/usr/lib/openmpi/lib' MPIHEADER=-I/usr/lib/openmpi/include FC=mpif77 F90=mpif90 CC=mpicc 'OPT=-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch' configure: WARNING: unrecognized options: --disable-dependency-tracking, --disable-silent-rules, --without-included-gettext egrep: warning: egrep is obsolescent; using grep -E checking for i586-alt-linux-cc... mpicc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether the compiler supports GNU C... yes checking whether mpicc accepts -g... yes checking for mpicc option to enable C11 features... none needed checking for stdio.h... yes checking for stdlib.h... yes checking for string.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for strings.h... yes checking for sys/stat.h... yes checking for sys/types.h... yes checking for unistd.h... yes checking whether byte ordering is bigendian... no checking for i586-alt-linux-nagfor... mpif77 checking whether the compiler supports GNU Fortran... yes checking whether mpif77 accepts -g... yes checking for Fortran flag to compile .F90 files... none checking for mpif90... mpif90 checking for mpif.h... yes Checking Compiler Version checking how to get the version output from mpif77... --version checking for Fortran flag to compile preprocessed .F files... none checking how to define symbols for preprocessed Fortran... -D checking how to get verbose linking output from mpif77... -v checking for Fortran libraries of mpif77... -L/usr/lib/openmpi/lib -L/usr/lib/gcc/i586-alt-linux/13 -L/usr/lib/gcc/i586-alt-linux/13/../../.. -lmpi_usempif08 -lmpi_usempi_ignore_tkr -lmpi_mpifh -lmpi -lgfortran -lm -lquadmath checking for dummy main to link with Fortran libraries... none checking for Fortran name-mangling scheme... lower case, underscore, no extra underscore Hostname=localhost.localdomain Machine=i686 OS=Linux Output Variables: {CC=mpicc} {CFLAGS=-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic} {FC=mpif77} {FCFLAGS=-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic} {PROGFCFLAGS=}{CPPDEFS= -DSYSLINUX -DCPR} {OPT=-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch} {DEBUG=} {REAL8=} {BIT64=} {ENDIAN=} {MPIFC=mpif90} {MPILIBS=-L/usr/lib/openmpi/lib -lmpi_f90 -lmpi_f77 -lmpi -Wl,-rpath,/usr/lib/openmpi/lib} {MPIHEADER=-I/usr/lib/openmpi/include} {INCLUDEFLAG=-I} {INCLUDEPATH=} {AR=ar cq} {BABELROOT=} {COMPILER_ROOT=} {PYTHON=} {PYTHONOPTS=} {FORT_SIZE=} {prefix=/usr} {SRCDIR=} {FC_DEFINE=-D} configure: creating ./config.status config.status: creating Makefile.conf config.status: creating config.h configure: WARNING: unrecognized options: --disable-dependency-tracking, --disable-silent-rules, --without-included-gettext Please check the Makefile.conf Have a nice day! + make make: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3' make[1]: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3/mpeu' mpicc -c -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -I/usr/lib/openmpi/include -I. -I../ get_zeits.c mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_mpif.F90 m_mpif.F90:31:2: 31 | module m_mpif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:32:2: 32 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:33:2: 33 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:35:2: 35 | public :: MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:36:2: 36 | public :: MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:37:2: 37 | public :: MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:38:2: 38 | public :: MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:39:2: 39 | public :: MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:41:2: 41 | public :: MPI_REAL4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:42:2: 42 | public :: MPI_REAL8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:44:2: 44 | public :: MPI_COMM_WORLD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:45:2: 45 | public :: MPI_COMM_NULL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:47:2: 47 | public :: MPI_SUM | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:48:2: 48 | public :: MPI_PROD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:49:2: 49 | public :: MPI_MIN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:50:4: 50 | public :: MPI_MAX | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:52:2: 52 | public :: MPI_MAX_ERROR_STRING | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:53:2: 53 | public :: MPI_STATUS_SIZE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:54:2: 54 | public :: MPI_ANY_SOURCE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:66:2: 66 | character(len=*),parameter :: myname='MCT(MPEU)::m_mpif' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:68:2: 68 | end module m_mpif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_realkinds.F90 m_realkinds.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:19:25: 19 | public :: kind_r4 ! real*4 | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:20:25: 20 | public :: kind_r8 ! real*8 | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:21:24: 21 | public :: kind_r ! default real | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:22:20: 22 | public :: SP ! default REAL | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:23:20: 23 | public :: DP ! default DOUBLE_PRECISION | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:24:20: 24 | public :: FP ! general floating point precision | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_stdio.F90 m_stdio.F90:16:2: 16 | module m_stdio | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:17:2: 17 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:18:2: 18 | private | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:20:2: 20 | public :: stdin ! a unit linked to UNIX stdin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:21:2: 21 | public :: stdout ! a unit linked to UNIX stdout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:22:2: 22 | public :: stderr ! a unit linked to UNIX stderr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:24:2: 24 | public :: LEN_FILENAME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:36:2: 36 | integer, parameter :: stdin = 5 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:37:2: 37 | integer, parameter :: stdout = 6 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:46:2: 46 | integer, parameter :: stderr = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:49:2: 49 | integer, parameter :: LEN_FILENAME = 128 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_mpif90.F90 m_mpif90.F90:26:37: 26 | use m_mpif, only : MP_INTEGER => MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:27:34: 27 | use m_mpif, only : MP_REAL => MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:28:46: 28 | use m_mpif, only : MP_DOUBLE_PRECISION & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:29:2: 29 | => MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:30:37: 30 | use m_mpif, only : MP_LOGICAL => MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:31:39: 31 | use m_mpif, only : MP_CHARACTER => MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:33:35: 33 | use m_mpif, only : MP_REAL4 => MPI_REAL4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:34:35: 34 | use m_mpif, only : MP_REAL8 => MPI_REAL8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:36:40: 36 | use m_mpif, only : MP_COMM_WORLD => MPI_COMM_WORLD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:37:39: 37 | use m_mpif, only : MP_COMM_NULL => MPI_COMM_NULL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:38:33: 38 | use m_mpif, only : MP_SUM => MPI_SUM | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:39:34: 39 | use m_mpif, only : MP_PROD => MPI_PROD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:40:34: 40 | use m_mpif, only : MP_MIN => MPI_MIN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:41:34: 41 | use m_mpif, only : MP_MAX => MPI_MAX | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:42:46: 42 | use m_mpif, only : MP_MAX_ERROR_STRING & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:43:2: 43 | => MPI_MAX_ERROR_STRING | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:45:40: 45 | use m_mpif, only : MP_ANY_SOURCE => MPI_ANY_SOURCE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:142:37: 142 | interface MP_type; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:143:11: 143 | typeI_, & ! MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:144:11: 144 | typeL_, & ! MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:145:11: 145 | typeC_, & ! MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:146:12: 146 | typeSP_, & ! MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:147:12: 147 | typeDP_, & ! MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:148:12: 148 | typeI1_, & ! MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:149:12: 149 | typeL1_, & ! MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:150:12: 150 | typeC1_, & ! MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:151:13: 151 | typeSP1_, & ! MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:152:13: 152 | typeDP1_, & ! MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:153:12: 153 | typeI2_, & ! MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:154:12: 154 | typeL2_, & ! MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:155:12: 155 | typeC2_, & ! MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:156:13: 156 | typeSP2_, & ! MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:157:12: 157 | typeDP2_ ! MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:217:59: 217 | subroutine MPI_cart_create(comm_old,ndims,dims,periods, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:218:4: 218 | reorder,comm_cart,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:217:59: 217 | subroutine MPI_cart_create(comm_old,ndims,dims,periods, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:218:4: 218 | reorder,comm_cart,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:631:26: 631 | function typeDP2_(rval) | 1 Warning: Unused dummy argument 'rval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:604:26: 604 | function typeSP2_(rval) | 1 Warning: Unused dummy argument 'rval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:579:25: 579 | function typeC2_(cval) | 1 Warning: Unused dummy argument 'cval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:554:25: 554 | function typeL2_(lval) | 1 Warning: Unused dummy argument 'lval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:529:25: 529 | function typeI2_(ival) | 1 Warning: Unused dummy argument 'ival' at (1) [-Wunused-dummy-argument] m_mpif90.F90:502:26: 502 | function typeDP1_(rval) | 1 Warning: Unused dummy argument 'rval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:475:26: 475 | function typeSP1_(rval) | 1 Warning: Unused dummy argument 'rval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:450:25: 450 | function typeC1_(cval) | 1 Warning: Unused dummy argument 'cval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:425:25: 425 | function typeL1_(lval) | 1 Warning: Unused dummy argument 'lval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:400:25: 400 | function typeI1_(ival) | 1 Warning: Unused dummy argument 'ival' at (1) [-Wunused-dummy-argument] m_mpif90.F90:373:25: 373 | function typeDP_(rval) | 1 Warning: Unused dummy argument 'rval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:346:25: 346 | function typeSP_(rval) | 1 Warning: Unused dummy argument 'rval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:321:24: 321 | function typeC_(cval) | 1 Warning: Unused dummy argument 'cval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:296:24: 296 | function typeL_(lval) | 1 Warning: Unused dummy argument 'lval' at (1) [-Wunused-dummy-argument] m_mpif90.F90:271:24: 271 | function typeI_(ival) | 1 Warning: Unused dummy argument 'ival' at (1) [-Wunused-dummy-argument] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_dropdead.F90 m_dropdead.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:19:14: 19 | public :: die ! terminate a program with a condition | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:21:39: 21 | interface die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:22:2: 22 | die_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:23:2: 23 | diex_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:53:44: 53 | character(len=*),intent(in) :: where ! where it is called | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:79:51: 79 | write(stderr,'(z3.3,5a)') myrank,'.',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:92:52: 92 | write(stderr,'(5a)') 'unknown rank .',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:127:44: 127 | character(len=*),intent(in) :: where ! where it is called | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:158:51: 158 | write(stderr,'(z3.3,9a)') myrank,'.',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:159:35: 159 | ': from ',trim(where),'()', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:160:40: 160 | ', line ',trim(adjustl(lineno)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:174:52: 174 | write(stderr,'(9a)') 'unknown rank .',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:175:35: 175 | ': from ',trim(where),'()', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:176:40: 176 | ', line ',trim(adjustl(lineno)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_chars.F90 m_chars.F90:15:2: 15 | module m_chars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:16:2: 16 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:17:2: 17 | private | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:19:2: 19 | public :: operator (.upper.) ! convert a string to uppercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:20:2: 20 | public :: uppercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:22:2: 22 | public :: operator (.lower.) ! convert a string to lowercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:23:2: 23 | public :: lowercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:25:2: 25 | interface operator (.upper.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:26:2: 26 | module procedure upper_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:27:2: 27 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:28:2: 28 | interface uppercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:29:2: 29 | module procedure upper_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:30:2: 30 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:32:2: 32 | interface operator (.lower.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:33:2: 33 | module procedure lower_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:34:2: 34 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:35:2: 35 | interface lowercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:36:2: 36 | module procedure lower_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:37:2: 37 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_flow.F90 m_flow.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_flow.F90:185:14: 185 | integer :: i | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_ioutil.F90 m_ioutil.F90:18:2: 18 | module m_ioutil | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:19:2: 19 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:20:2: 20 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:22:2: 22 | public :: opntext,clstext ! open/close a text file | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:23:2: 23 | public :: opnieee,clsieee ! open/close a binary sequential file | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:24:2: 24 | public :: luavail ! return a free logical unit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:25:2: 25 | public :: luflush ! flush the buffer of a given unit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:40:2: 40 | character(len=*),parameter :: myname="MCT(MPEU)::m_ioutil" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:41:2: 41 | integer,parameter :: MX_LU=99 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:93:2: 93 | character(len=*),parameter :: myname_=myname//'::opnieee' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:95:2: 95 | integer,parameter :: iA=ichar('a') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:96:2: 96 | integer,parameter :: mA=ichar('A') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:97:2: 97 | integer,parameter :: iZ=ichar('z') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:99:2: 99 | logical :: direct | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:100:2: 100 | character(len=16) :: clen | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:101:2: 101 | character(len=len(status)) :: Ustat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:102:2: 102 | integer :: i,ic | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:107:2: 107 | ier = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:109:2: 109 | direct=.false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:110:2: 110 | if(present(recl)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:111:2: 111 | if(recl<0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:112:2: 112 | clen='****************' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:113:2: 113 | write(clen,'(i16)',iostat=ier) recl | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:114:2: 114 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:116:2: 116 | ier=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:117:2: 117 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:118:2: 118 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:119:2: 119 | direct = recl>0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:120:2: 120 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:139:2: 139 | do i=1,len(status) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:140:2: 140 | ic=ichar(status(i:i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:141:2: 141 | if(ic >= iA .and. ic <= iZ) ic=ic+(mA-iA) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:142:2: 142 | Ustat(i:i)=char(ic) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:143:2: 143 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:145:2: 145 | select case(Ustat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:147:2: 147 | case ('APPEND') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:149:2: 149 | if(direct) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:150:2: 150 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:152:2: 152 | ier=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:153:2: 153 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:154:2: 154 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:2: 156 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:26: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:26: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:26: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:165:2: 165 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:167:2: 167 | if(direct) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:2: 168 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:20: 174 | recl =recl, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:20: 174 | recl =recl, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:20: 174 | recl =recl, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:177:2: 177 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:2: 178 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:26: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:26: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:26: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:186:2: 186 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:188:2: 188 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:190:2: 190 | end subroutine opnieee | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:209:2: 209 | subroutine clsieee(lu,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:210:2: 210 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:211:2: 211 | integer, intent(in) :: lu ! the unit used by opnieee() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:212:2: 212 | integer, intent(out) :: ier ! the status | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:218:2: 218 | close(lu,iostat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:223:2: 223 | end subroutine clsieee | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:257:2: 257 | character(len=*),parameter :: myname_=myname//'::opntext' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:259:2: 259 | integer,parameter :: iA=ichar('a') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:260:2: 260 | integer,parameter :: mA=ichar('A') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:261:2: 261 | integer,parameter :: iZ=ichar('z') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:263:2: 263 | character(len=len(status)) :: Ustat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:264:2: 264 | integer :: i,ic | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:271:2: 271 | do i=1,len(status) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:272:2: 272 | ic=ichar(status(i:i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:273:2: 273 | if(ic >= iA .and. ic <= iZ) ic=ic+(mA-iA) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:274:2: 274 | Ustat(i:i)=char(ic) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:275:2: 275 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:277:2: 277 | select case(Ustat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:279:2: 279 | case ('APPEND') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:2: 281 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:26: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:26: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:26: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:290:2: 290 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:2: 292 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:24: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:24: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:24: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:301:2: 301 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:303:2: 303 | end subroutine opntext | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:327:2: 327 | close(lu,iostat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:332:2: 332 | end subroutine clstext | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:347:2: 347 | function luavail() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:348:2: 348 | use m_stdio | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:349:2: 349 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:350:2: 350 | integer :: luavail ! result | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:369:2: 369 | integer lu,ios | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:370:2: 370 | logical inuse | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:372:2: 372 | lu=10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:373:2: 373 | ios=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:374:2: 374 | inuse=.true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:376:2: 376 | do while(ios.eq.0 .and. inuse .and. lu.le.MX_LU) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:377:2: 377 | lu=lu+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:378:2: 378 | inquire(unit=lu,opened=inuse,iostat=ios) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:379:2: 379 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:381:2: 381 | if(ios.ne.0) lu=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:382:2: 382 | luavail=lu | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:417:16: 417 | integer :: ier | 1 Warning: Unused variable 'ier' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_mpout.F90 m_mpout.F90:18:15: 18 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:20:23: 20 | public :: mpout ! The file handle as a Fortran logical unit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:22:28: 22 | public :: mpout_open ! open the multiple output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:23:29: 23 | public :: mpout_close ! close the multiple output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:24:28: 24 | public :: mpout_sync ! sync. the multiple output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:25:29: 25 | public :: mpout_flush ! flush the multople output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:26:28: 26 | public :: mpout_ison ! verify if mpout is proper defined | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:27:27: 27 | public :: mpout_log ! write a message to mpout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:73:37: 73 | integer,parameter :: mpout_MASK=3 ! every four PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:149:40: 149 | write(stderr,'(4a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:195:47: 195 | write(stderr,'(2a,i3.3,a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_die.F90 m_die.F90:18:15: 18 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:20:21: 20 | public :: die ! signal an exception | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:21:22: 21 | public :: diex ! a special die() supporting macros | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:22:27: 22 | public :: perr,warn ! message(s) to stderr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:23:26: 23 | public :: perr_die ! to be phased out | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:24:24: 24 | public :: MP_die ! a special die() for MPI errors | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:25:25: 25 | public :: MP_perr ! perr for MPI errors, from m_mpif90 | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:26:29: 26 | public :: MP_perr_die ! a special die() for MPI errors | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:27:25: 27 | public :: assert_ ! used by ASSERT() macro of assert.H | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:29:39: 29 | interface die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:30:2: 30 | die0_, & ! die(where) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:31:2: 31 | die1_, & ! die(where,message) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:32:2: 32 | die2_, & ! die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:33:2: 33 | die4_ ! die(where,mesg1,ival1,mesg2,ival2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:36:40: 36 | interface diex; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:37:2: 37 | diex_ ! diex(where,filename,lineno) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:40:40: 40 | interface perr; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:41:2: 41 | perr1_, & ! perr(where,message) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:42:2: 42 | perr2_, & ! perr(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:43:2: 43 | perr4_ ! perr(where,mesg1,ival1,mesg2,ival2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:45:40: 45 | interface warn; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:46:2: 46 | perr1_, & ! perr(where,message) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:47:2: 47 | perr2_, & ! perr(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:48:2: 48 | perr4_ ! perr(where,mesg1,ival1,mesg2,ival2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:51:44: 51 | interface perr_die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:52:2: 52 | die2_ ! perr_die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:55:42: 55 | interface MP_die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:56:2: 56 | MPdie2_ ! MP_die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:58:47: 58 | interface MP_perr_die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:59:2: 59 | MPdie2_ ! MP_die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:377:43: 377 | Character(Len=*), Intent(In) :: str ! a message | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:378:44: 378 | Character(Len=*), Intent(In) :: file ! a filename | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:379:35: 379 | Integer, Intent(In) :: line ! a line number | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:372:26: 372 | subroutine assert_(str, file, line) | 1 Warning: Unused dummy argument 'str' at (1) [-Wunused-dummy-argument] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_IndexBin_char.F90 m_IndexBin_char.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:19:45: 19 | interface IndexBin; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:20:2: 20 | IndexBin0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:21:2: 21 | IndexBin1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:22:2: 22 | IndexBin1w_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:65:2: 65 | allocate(inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:66:2: 66 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:67:2: 67 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:69:2: 69 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:70:2: 70 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:74:11: 74 | lc(0)=1 ! the location of values the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:80:17: 80 | lc(1)=ln(0)+1 ! the location of values not the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:104:2: 104 | deallocate(inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:144:2: 144 | allocate(ibin(n),inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:145:2: 145 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:146:2: 146 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:148:2: 148 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:149:2: 149 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:162:41: 162 | call search_(keys(ix),nbin,bins,ib) ! ib = 1:nbin; =0 if not found | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:179:16: 179 | ib=ibin(i) ! the bin-index of keys(indx(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:187:22: 187 | inew(ni)=indx(i) ! the current value is put in the new order | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:194:2: 194 | deallocate(ibin,inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_IndexBin_integer.F90 m_IndexBin_integer.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:19:45: 19 | interface IndexBin; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:20:2: 20 | IndexBin0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:21:2: 21 | IndexBin1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:22:2: 22 | IndexBin1w_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:65:2: 65 | allocate(inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:66:2: 66 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:67:2: 67 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:69:2: 69 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:70:2: 70 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:74:11: 74 | lc(0)=1 ! the location of values the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:80:17: 80 | lc(1)=ln(0)+1 ! the location of values not the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:104:2: 104 | deallocate(inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:144:2: 144 | allocate(ibin(n),inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:145:2: 145 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:146:2: 146 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:148:2: 148 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:149:2: 149 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:162:41: 162 | call search_(keys(ix),nbin,bins,ib) ! ib = 1:nbin; =0 if not found | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:179:16: 179 | ib=ibin(i) ! the bin-index of keys(indx(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:187:22: 187 | inew(ni)=indx(i) ! the current value is put in the new order | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:194:2: 194 | deallocate(ibin,inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_IndexBin_logical.F90 m_IndexBin_logical.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:19:45: 19 | interface IndexBin; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:20:2: 20 | IndexBin0_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:63:2: 63 | allocate(inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:64:2: 64 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:65:2: 65 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:67:2: 67 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:68:2: 68 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:72:11: 72 | lc(0)=1 ! the location of values the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:78:17: 78 | lc(1)=ln(0)+1 ! the location of values not the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:102:2: 102 | deallocate(inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_mall.F90 m_mall.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:34:47: 34 | interface mall_mci; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:35:2: 35 | ciI0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:36:2: 36 | ciI1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:37:2: 37 | ciI2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:38:2: 38 | ciI3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:39:2: 39 | ciR0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:40:2: 40 | ciR1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:41:2: 41 | ciR2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:42:2: 42 | ciR3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:43:2: 43 | ciD0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:44:2: 44 | ciD1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:45:2: 45 | ciD2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:46:2: 46 | ciD3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:47:2: 47 | ciL0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:48:2: 48 | ciL1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:49:2: 49 | ciL2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:50:2: 50 | ciL3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:51:2: 51 | ciC0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:52:2: 52 | ciC1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:53:2: 53 | ciC2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:54:2: 54 | ciC3_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:57:47: 57 | interface mall_mco; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:58:2: 58 | coI0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:59:2: 59 | coI1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:60:2: 60 | coI2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:61:2: 61 | coI3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:62:2: 62 | coR0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:63:2: 63 | coR1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:64:2: 64 | coR2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:65:2: 65 | coR3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:66:2: 66 | coD0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:67:2: 67 | coD1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:68:2: 68 | coD2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:69:2: 69 | coD3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:70:2: 70 | coL0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:71:2: 71 | coL1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:72:2: 72 | coL2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:73:2: 73 | coL3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:74:2: 74 | coC0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:75:2: 75 | coC1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:76:2: 76 | coC2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:77:2: 77 | coC3_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:101:31: 101 | integer, save :: nreset = 0 ! number of reset_() calls | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:102:38: 102 | logical, save :: started = .false. ! the module is in use | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:104:26: 104 | integer, save :: n_ =0 ! number of accouting bins. | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:110:35: 110 | logical,save :: mall_on=.false. ! mall activity switch | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:113:39: 113 | integer,dimension(MXL),save :: mci_ ! maximum ci_() calls | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:115:39: 115 | integer,dimension(MXL),save :: nci_ ! net ci_() calls | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:117:39: 117 | integer,dimension(MXL),save :: hwm_ ! high-water-mark of allocate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:119:39: 119 | integer,dimension(MXL),save :: nwm_ ! net-water-mark of allocate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:741:38: 741 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1332:38: 1332 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1381:41: 1381 | write(stderr,'(2a,i4)') trim(thread), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1412:41: 1412 | write(stderr,'(2a,i4)') trim(thread), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1459:52: 1459 | write(lu,'(a,t39,4(2x,a))',iostat=ier) '[MALL]', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1509:50: 1509 | if(nreset /= 1) write(lu,'(2a,i3,a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1094:25: 1094 | subroutine coL0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:986:25: 986 | subroutine coD0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:878:25: 878 | subroutine coR0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:774:25: 774 | subroutine coI0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:503:25: 503 | subroutine ciL0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:395:25: 395 | subroutine ciD0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:287:25: 287 | subroutine ciR0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:183:25: 183 | subroutine ciI0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_mall.F90:1365:19: 1365 | subroutine cix_(thread,stat,fnam,line) | ^ Warning: 'cix_' defined but not used [-Wunused-function] m_mall.F90:1397:19: 1397 | subroutine cox_(thread,stat,fnam,line) | ^ Warning: 'cox_' defined but not used [-Wunused-function] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_String.F90 m_String.F90:24:15: 24 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:28:24: 28 | public :: String ! The class data structure | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:39:24: 39 | public :: toChar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:40:22: 40 | public :: char ! convert to a CHARACTER(*) | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:43:22: 43 | public :: init ! set a CHARACTER(*) type to a String | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:46:23: 46 | public :: clean ! Deallocate memory occupied by a String | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:49:21: 49 | public :: len ! length of a String | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:52:23: 52 | public :: bcast ! Broadcast a String | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:60:37: 60 | interface char; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:61:2: 61 | str2ch0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:62:2: 62 | ch12ch0_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:65:39: 65 | interface toChar; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:66:2: 66 | str2ch0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:67:2: 67 | ch12ch0_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:70:44: 70 | interface String_init; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:71:2: 71 | initc_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:72:2: 72 | initc1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:73:2: 73 | inits_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:76:37: 76 | interface init; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:77:2: 77 | initc_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:78:2: 78 | initc1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:79:2: 79 | inits_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:89:42: 89 | interface String_mci; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:90:12: 90 | mci0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:91:12: 91 | mci1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:92:12: 92 | mci2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:96:42: 96 | interface String_mco; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:97:12: 97 | mco0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:98:12: 98 | mco1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:99:12: 99 | mco2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:103:41: 103 | interface ptr_chars; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:240:2: 240 | if(mall_ison()) call mall_mci(str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:291:2: 291 | if(mall_ison()) call mall_mci(str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:339:2: 339 | allocate(oStr%c(ln),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:340:2: 340 | if(ier /= 0) call die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:342:2: 342 | if(mall_ison()) call mall_mci(oStr%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:383:2: 383 | if(mall_ison()) call mall_mco(str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:475:2: 475 | if(mall_ison()) call mall_mci(Str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:478:17: 457 | call MPI_bcast(ln,1,MP_INTEGER,root,comm,ier) | 2 ...... 478 | call MPI_bcast(Str%c(1),ln,MP_CHARACTER,root,comm,ier) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(1)/INTEGER(4)). m_String.F90:532:22: 532 | subroutine mco0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] m_String.F90:498:22: 498 | subroutine mci0_(marg,thread) | 1 Warning: Unused dummy argument 'marg' at (1) [-Wunused-dummy-argument] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_List.F90 m_List.F90:57:15: 57 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:61:22: 61 | public :: List ! The class data structure | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:67:2: 67 | character(len=1),dimension(:),pointer :: bf | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:68:2: 68 | integer, dimension(:,:),pointer :: lc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:95:37: 95 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:96:14: 96 | init_, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:97:17: 97 | initStr_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:102:37: 102 | interface index; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:109:37: 109 | interface get ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:110:13: 110 | get_, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:111:16: 111 | getall_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:203:30: 203 | type(List),intent(out) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:224:24: 224 | if(ib==i) ib=i+1 ! moving ib up, starting from the next | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:227:2: 227 | ni=ni+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:228:2: 228 | id=1 ! mark a ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:230:14: 230 | ib=i+1 ! moving ib up, starting from the next | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:233:22: 233 | if(id==1) then ! count an earlier marked ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:234:2: 234 | id=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:235:2: 235 | le=le+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:249:2: 249 | if(mall_ison()) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:250:2: 250 | call mall_mci(aList%bf,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:251:2: 251 | call mall_mci(aList%lc,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:252:2: 252 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:266:24: 266 | if(ib==i) ib=i+1 ! moving ib up, starting from the next | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:269:2: 269 | ni=ni+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:270:2: 270 | aList%lc(0:1,ni)=(/lb,le/) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:271:2: 271 | id=1 ! mark a ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:274:14: 274 | ib=i+1 ! moving ib up, starting from the next | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:275:15: 275 | lb=le+2 ! skip to the next non-':' and non-',' | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:278:22: 278 | if(id==1) then ! copy an earlier marked ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:279:2: 279 | id=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:280:2: 280 | le=le+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:320:31: 320 | type(String),intent(in) :: pstr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:324:30: 324 | type(List),intent(out) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:374:44: 374 | type(String),dimension(:),intent(in) :: strs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:378:30: 378 | type(List),intent(out) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:395:13: 395 | le=le+n-1 ! for n-1 ":"s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:397:2: 397 | allocate(ch1(le),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:398:2: 398 | if(ier/=0) call die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:414:2: 414 | deallocate(ch1,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:415:2: 415 | if(ier/=0) call die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:470:2: 470 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:472:2: 472 | if(ier /= 0) call warn(myname_,'deallocate(aList%...)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:601:44: 601 | type(List), intent(in) :: aList ! a List of names | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:602:43: 602 | character(len=*),intent(in) :: item ! a given item name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:622:41: 622 | ITEM_COMPARE: do i=1,size(aList%lc,2) ! == nitem_(aList) | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:644:2: 644 | if(aList%bf(lb+j-1) == item(j:j)) then ! a match for this character | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:645:2: 645 | nMatch = nMatch + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:646:2: 646 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:647:2: 647 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:648:2: 648 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:657:2: 657 | index_ = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:658:2: 658 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:699:44: 699 | type(List), intent(in) :: aList ! a List of names | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:771:26: 771 | subroutine copy_(yL,xL) ! yL=xL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:817:2: 817 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1225:2: 1225 | call get_(DummStr, n, yL) ! retrieve nth tag as a String | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1227:2: 1227 | if( indexStr_(xL, Dummstr) /= n ) then ! a discrepency spotted. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1228:2: 1228 | call String_clean(Dummstr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1229:2: 1229 | myIdentical = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1230:2: 1230 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1231:2: 1231 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1232:2: 1232 | call String_clean(Dummstr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1233:2: 1233 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1235:2: 1235 | myIdentical = .TRUE. ! we survived the whole test process. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1293:41: 1293 | type(List), intent(in) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1409:41: 1409 | type(List), intent(in) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1584:2: 1584 | call init_(oList,'') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1586:2: 1586 | if((nitem_(iList1) == 0) .and. (nitem_(iList2) > 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1587:2: 1587 | call copy_(oList, iList2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1588:2: 1588 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1589:2: 1589 | if((nitem_(iList1) > 0) .and. (nitem_(iList2) == 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1590:2: 1590 | call copy_(oList,iList1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1591:2: 1591 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1606:2: 1606 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1608:2: 1608 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1615:2: 1615 | CatBuff(i) = iList1%bf(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1621:2: 1621 | CatBuff(Length1 + 1 + i) = iList2%bf(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1638:2: 1638 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1640:2: 1640 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1727:2: 1727 | call die(myname_, 'Attempting to broadcast an empty list!',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1728:2: 1728 | CharBufferSize_(ioList)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:409:15: 409 | ch1(lc:le)=ptr_chars(strs(i)) | 1 Warning: POINTER-valued function appears on right-hand side of assignment at (1) [-Wsurprising] m_List.F90:1945:15: 1927 | call MPI_RECV(length, 1, MP_type(length), source, TagBase, comm, & | 2 ...... 1945 | call MPI_RECV(DummStr%c(1), length, MP_CHARACTER, source, TagBase+1, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(1)/INTEGER(4)). m_List.F90:1846:15: 1831 | call MPI_SEND(length, 1, MP_type(length), dest, TagBase, comm, ierr) | 2 ...... 1846 | call MPI_SEND(DummStr%c(1), length, MP_CHARACTER, dest, TagBase+1, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(1)/INTEGER(4)). mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_MergeSorts.F90 m_MergeSorts.F90:22:15: 22 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:29:2: 29 | module procedure setn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:30:2: 30 | module procedure set_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:33:2: 33 | module procedure iSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:34:2: 34 | module procedure rSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:35:2: 35 | module procedure dSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:36:2: 36 | module procedure cSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:37:2: 37 | module procedure iSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:38:2: 38 | module procedure rSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:39:2: 39 | module procedure dSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:40:2: 40 | module procedure cSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:41:2: 41 | module procedure iSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:42:2: 42 | module procedure rSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:43:2: 43 | module procedure dSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:44:2: 44 | module procedure cSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:95:32: 95 | integer, intent(in) :: n ! size of indx(:) | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:96:50: 96 | integer, dimension(n), intent(out) :: indx ! indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:119:50: 119 | integer, dimension(:), intent(out) :: indx ! indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:299:38: 299 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:416:38: 416 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:533:38: 533 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:649:38: 649 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:766:38: 766 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:884:38: 884 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:1002:38: 1002 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:1119:38: 1119 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_Filename.F90 m_Filename.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Filename.F90:18:31: 18 | public :: Filename_base ! basename() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Filename.F90:19:30: 19 | public :: Filename_dir ! dirname() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Filename.F90:57:10: 57 | lb=l+1 ! correct either a '/' is in the string or not. | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_FcComms.F90 m_FcComms.F90:30:15: 30 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_FcComms.F90:427:33: 427 | call mpi_irecv ( recvbuf(displs(q)+1), recvcnts(q), & | 1 ...... 570 | call mpi_irecv ( recvbuf(displs(q)+1), recvcnts(q), & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:430:32: 430 | call mpi_send ( signal, 1, recvtype, p, mtag, comm, ier ) | 1 ...... 573 | call mpi_send ( signal, 1, recvtype, p, mtag, comm, ier ) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:449:26: 449 | call mpi_recv ( signal, 1, sendtype, root, mtag, comm, & | 1 ...... 592 | call mpi_recv ( signal, 1, sendtype, root, mtag, comm, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:451:27: 451 | call mpi_rsend ( sendbuf, sendcnt, sendtype, root, mtag, & | 1 ...... 594 | call mpi_rsend ( sendbuf, sendcnt, sendtype, root, mtag, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:462:22: 462 | call mpi_gatherv (sendbuf, sendcnt, sendtype, & | 1 ...... 605 | call mpi_gatherv (sendbuf, sendcnt, sendtype, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:463:22: 463 | recvbuf, recvcnts, displs, recvtype, & | 1 ...... 606 | recvbuf, recvcnts, displs, recvtype, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:178:21: 178 | call mpi_gather (sendbuf, sendcnt, sendtype, & | 1 ...... 320 | call mpi_gather (sendbuf, sendcnt, sendtype, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:179:21: 179 | recvbuf, recvcnt, recvtype, & | 1 ...... 321 | recvbuf, recvcnt, recvtype, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_Permuter.F90 m_Permuter.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:18:24: 18 | public :: permute | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:21:41: 21 | interface permute; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:22:2: 22 | permutei_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:23:2: 23 | permuteio_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:24:2: 24 | permutei1_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:25:2: 25 | permuteio1_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:26:2: 26 | permuter_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:27:2: 27 | permutero_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:28:2: 28 | permuter1_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:29:2: 29 | permutero1_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:30:2: 30 | permuted_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:31:2: 31 | permutedo_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:32:2: 32 | permuted1_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:33:2: 33 | permutedo1_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:34:2: 34 | permutel_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:35:2: 35 | permutelo_, & ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:36:2: 36 | permutel1_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:37:2: 37 | permutelo1_ ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:40:43: 40 | interface unpermute; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:41:2: 41 | unpermutei_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:42:2: 42 | unpermuteio_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:43:2: 43 | unpermutei1_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:44:2: 44 | unpermuteio1_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:45:2: 45 | unpermuter_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:46:2: 46 | unpermutero_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:47:2: 47 | unpermuter1_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:48:2: 48 | unpermutero1_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:49:2: 49 | unpermuted_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:50:2: 50 | unpermutedo_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:51:2: 51 | unpermuted1_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:52:2: 52 | unpermutedo1_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:53:2: 53 | unpermutel_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:54:2: 54 | unpermutelo_, & ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:55:2: 55 | unpermutel1_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:56:2: 56 | unpermutelo1_ ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:96:2: 96 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:105:2: 105 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:170:2: 170 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:179:2: 179 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:245:2: 245 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:254:2: 254 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:321:2: 321 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:330:2: 330 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:397:2: 397 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:406:2: 406 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:473:2: 473 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:482:2: 482 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:548:2: 548 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:557:2: 557 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:622:2: 622 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:631:2: 631 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:697:2: 697 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:706:2: 706 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:773:2: 773 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:782:2: 782 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:850:2: 850 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:859:2: 859 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:928:2: 928 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:937:2: 937 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1006:2: 1006 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1015:2: 1015 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1084:2: 1084 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1093:2: 1093 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1161:2: 1161 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1170:2: 1170 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1237:2: 1237 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1246:2: 1246 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_rankMerge.F90 m_rankMerge.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:18:25: 18 | public :: rankSet ! set inital ranks | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:19:27: 19 | public :: rankMerge ! merge two ranks | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:24:45: 24 | interface rankMerge; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:25:2: 25 | imerge_, & ! rank-merging two integer arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:26:2: 26 | rmerge_, & ! rank-merging two real arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:27:2: 27 | dmerge_, & ! rank-merging two dble arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:28:2: 28 | uniq_ ! merging to rank arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:31:52: 31 | interface IndexedRankMerge; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:32:2: 32 | iindexmerge_, & ! merging two index arrays of integers | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:33:2: 33 | rindexmerge_, & ! merging two index arrays of reals | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:34:2: 34 | dindexmerge_ ! merging two index arrays of dbles | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:85:53: 85 | integer,dimension(:),intent(in) :: value_j ! value of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:86:53: 86 | integer,dimension(:),intent(in) :: value_i ! value of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:88:53: 88 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:89:53: 89 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:115:11: 115 | krank=0 ! a preset rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:120:23: 120 | if(geti) then ! .eqv. j>nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:121:25: 121 | if(i>ni) exit ! i>ni | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:123:14: 123 | else ! .eqv. j<=nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:137:25: 137 | krank=krank+1 ! the next rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:165:54: 165 | real(SP),dimension(:),intent(in) :: value_i ! value of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:166:54: 166 | real(SP),dimension(:),intent(in) :: value_j ! value of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:168:53: 168 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:169:53: 169 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:195:11: 195 | krank=0 ! a preset rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:200:23: 200 | if(geti) then ! .eqv. j>nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:201:25: 201 | if(i>ni) exit ! i>ni | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:203:14: 203 | else ! .eqv. j<=nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:217:25: 217 | krank=krank+1 ! the next rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:245:54: 245 | real(DP),dimension(:),intent(in) :: value_i ! value of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:246:54: 246 | real(DP),dimension(:),intent(in) :: value_j ! value of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:248:53: 248 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:249:53: 249 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:275:11: 275 | krank=0 ! a preset rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:280:23: 280 | if(geti) then ! .eqv. j>nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:281:25: 281 | if(i>ni) exit ! i>ni | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:283:14: 283 | else ! .eqv. j<=nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:297:25: 297 | krank=krank+1 ! the next rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:325:52: 325 | integer,dimension(:),intent(in) :: indx_i ! of the i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:326:52: 326 | integer,dimension(:),intent(in) :: indx_j ! of the j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:327:51: 327 | integer,dimension(:),intent(in) :: value ! of the full | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:329:53: 329 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:330:53: 330 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:356:11: 356 | krank=0 ! a preset rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:361:23: 361 | if(geti) then ! .eqv. j>nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:362:25: 362 | if(i>ni) exit ! i>ni | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:363:2: 363 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:365:14: 365 | else ! .eqv. j<=nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:366:2: 366 | lj=indx_j(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:369:2: 369 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:381:25: 381 | krank=krank+1 ! the next rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:410:52: 410 | integer,dimension(:),intent(in) :: indx_i ! of the i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:411:52: 411 | integer,dimension(:),intent(in) :: indx_j ! of the j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:412:52: 412 | real(SP),dimension(:),intent(in) :: value ! of the full | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:414:53: 414 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:415:53: 415 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:441:11: 441 | krank=0 ! a preset rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:446:23: 446 | if(geti) then ! .eqv. j>nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:447:25: 447 | if(i>ni) exit ! i>ni | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:448:2: 448 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:450:14: 450 | else ! .eqv. j<=nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:451:2: 451 | lj=indx_j(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:454:2: 454 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:466:25: 466 | krank=krank+1 ! the next rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:494:52: 494 | integer,dimension(:),intent(in) :: indx_i ! of the i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:495:52: 495 | integer,dimension(:),intent(in) :: indx_j ! of the j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:496:52: 496 | real(DP),dimension(:),intent(in) :: value ! of the full | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:498:53: 498 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:499:53: 499 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:525:11: 525 | krank=0 ! a preset rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:530:23: 530 | if(geti) then ! .eqv. j>nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:531:25: 531 | if(i>ni) exit ! i>ni | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:532:2: 532 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:534:14: 534 | else ! .eqv. j<=nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:535:2: 535 | lj=indx_j(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:538:2: 538 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:550:25: 550 | krank=krank+1 ! the next rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:577:53: 577 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:578:53: 578 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:600:23: 600 | if(geti) then ! .eqv. j>nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:601:25: 601 | if(i>ni) exit ! i>ni | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:602:14: 602 | else ! .eqv. j<=nj | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:604:52: 604 | if(geti) geti = krank_i(i) <= krank_j(j) ! if(i<=ni) .. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:607:23: 607 | krank=krank+1 ! the next rank value | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:609:2: 609 | if(geti) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:610:2: 610 | krank_i(i)=krank | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:611:2: 611 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:612:2: 612 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:613:2: 613 | krank_j(j)=krank | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:614:2: 614 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:615:2: 615 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_SortingTools.F90 m_SortingTools.F90:34:24: 34 | use m_MergeSorts !only : IndexSet,IndexSort | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:35:30: 35 | use m_IndexBin_integer !only : IndexBin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:36:27: 36 | use m_IndexBin_char !only : IndexBin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:37:30: 37 | use m_IndexBin_logical !only : IndexBin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:38:23: 38 | use m_rankMerge !only : RankSet,RankMerge,IndexedRankMerge | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:39:22: 39 | use m_Permuter !only : Permute, Unpermute | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:43:15: 43 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:45:26: 45 | public :: IndexSet ! define an initial list of indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:46:27: 46 | public :: IndexSort ! index for a new rank out of the old | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:47:26: 47 | public :: IndexBin ! index for sorting bins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:48:25: 48 | public :: RankSet ! define an initial list of ranks | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:49:27: 49 | public :: RankMerge ! merge two arrays by re-ranking | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_StrTemplate.F90 m_StrTemplate.F90:36:15: 36 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:38:29: 38 | public :: StrTemplate ! Substitute variables in a template | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:41:2: 41 | module procedure strTemplate_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:57:56: 57 | character(len=3),parameter,dimension(12) :: mon_lc = (/ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:58:39: 58 | 'jan','feb','mar','apr','may','jun', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:59:38: 59 | 'jul','aug','sep','oct','nov','dec' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:61:56: 61 | character(len=3),parameter,dimension(12) :: mon_wd = (/ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:62:39: 62 | 'Jan','Feb','Mar','Apr','May','Jun', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:63:38: 63 | 'Jul','Aug','Sep','Oct','Nov','Dec' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:65:56: 65 | character(len=3),parameter,dimension(12) :: mon_uc = (/ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:66:39: 66 | 'JAN','FEB','MAR','APR','MAY','JUN', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:67:38: 67 | 'JUL','AUG','SEP','OCT','NOV','DEC' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:86:43: 86 | character(len=*),intent(out) :: str ! the output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:88:44: 88 | character(len=*),intent(in ) :: tmpl ! a "format" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:189:2: 189 | if(nymd < 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:190:2: 190 | call perr(myname_,'nymd < 0',nymd) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:191:2: 191 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:192:2: 192 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:193:2: 193 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:194:2: 194 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:209:2: 209 | if(nhms < 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:210:2: 210 | call perr(myname_,'nhms < 0',nhms) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:211:2: 211 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:212:2: 212 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:213:2: 213 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:214:2: 214 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:223:26: 223 | ln_tmpl=len_trim(tmpl) ! size of the format template | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:224:20: 224 | ln_str =len(str) ! size of the output string | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:234:31: 234 | do while( i+istp <= ln_tmpl ) ! A loop over all tokens in (tmpl) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:236:21: 236 | if(k>ln_Str) exit ! truncate the output here. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:254:2: 254 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:256:2: 256 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:257:2: 257 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:258:2: 258 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:271:13: 271 | k=k+1 ! kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:286:2: 286 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:288:2: 288 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:289:2: 289 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:290:2: 290 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:296:2: 296 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:298:2: 298 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:299:2: 299 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:300:2: 300 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:306:39: 306 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:312:18: 312 | end select ! case(c1//c2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:313:16: 313 | end select ! case(c1) | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:321:2: 321 | write(sbuf,'(i2.2)') iy2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:322:2: 322 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:324:2: 324 | write(sbuf,'(i4.4)') iy4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:325:2: 325 | kstp=4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:327:2: 327 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:329:2: 329 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:330:2: 330 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:331:2: 331 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:337:2: 337 | if(imo < 10) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:338:2: 338 | write(sbuf,'(i1)') imo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:339:2: 339 | kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:340:2: 340 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:341:2: 341 | write(sbuf,'(i2)') imo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:342:2: 342 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:343:2: 343 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:345:2: 345 | write(sbuf,'(i2.2)') imo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:346:2: 346 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:348:2: 348 | sbuf=mon_lc(imo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:349:2: 349 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:351:2: 351 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:353:2: 353 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:354:2: 354 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:355:2: 355 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:361:2: 361 | sbuf=mon_wd(imo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:362:2: 362 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:364:2: 364 | sbuf=mon_uc(imo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:365:2: 365 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:367:2: 367 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:369:2: 369 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:370:2: 370 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:371:2: 371 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:377:2: 377 | if(idy < 10) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:378:2: 378 | write(sbuf,'(i1)') idy | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:379:2: 379 | kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:380:2: 380 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:381:2: 381 | write(sbuf,'(i2)') idy | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:382:2: 382 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:383:2: 383 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:385:2: 385 | write(sbuf,'(i2.2)') idy | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:386:2: 386 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:388:2: 388 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:390:2: 390 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:391:2: 391 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:392:2: 392 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:398:2: 398 | if(ihr < 10) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:399:2: 399 | write(sbuf,'(i1)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:400:2: 400 | kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:401:2: 401 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:402:2: 402 | write(sbuf,'(i2)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:403:2: 403 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:404:2: 404 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:406:2: 406 | write(sbuf,'(i2.2)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:407:2: 407 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:409:2: 409 | write(sbuf,'(i3.3)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:410:2: 410 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:412:2: 412 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:414:2: 414 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:415:2: 415 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:416:2: 416 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:422:2: 422 | write(sbuf,'(i2.2)') imn | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:423:2: 423 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:425:2: 425 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:427:2: 427 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:428:2: 428 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:429:2: 429 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:433:2: 433 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:435:2: 435 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:436:2: 436 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:438:16: 438 | end select ! case(c1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:450:14: 450 | end select ! case(c0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_FileResolv.F90 m_FileResolv.F90:96:32: 96 | character(len=*), parameter :: myname = 'MCT(MPEU)::FileResolv' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_FileResolv.F90:195:2: 195 | else ! shut down | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_inpak90.F90 m_inpak90.F90:242:25: 242 | public :: I90_AtoF ! ASCII to float (function) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:243:25: 243 | public :: I90_AtoI ! ASCII to integer (function) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:246:25: 246 | public :: I90_GInt ! returns next integer number (function) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:252:2: 252 | fltgetsp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:253:2: 253 | fltgetdp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:295:37: 295 | integer,parameter :: MALLSIZE_=10 ! just an estimation | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:404:39: 404 | if(i90_depth <= 0) nullify(i90_now) ! just an initialization | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:409:2: 409 | call perr(myname_,'(overflow)',i90_depth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:410:2: 410 | ier=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:411:2: 411 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:415:2: 415 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:416:2: 416 | call perr(myname_,'allocate(new)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:417:2: 417 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:418:2: 418 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:420:2: 420 | if(mall_ison()) call mall_ci(MALLSIZE_,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:423:2: 423 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:424:2: 424 | call perr(myname_,'allocate(new%..)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:425:2: 425 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:426:2: 426 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:428:2: 428 | if(mall_ison()) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:429:2: 429 | call mall_mci(new%buffer,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:430:2: 430 | call mall_mci(new%this_line,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:431:2: 431 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:464:2: 464 | call perr(myname_,'(underflow)',i90_depth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:465:2: 465 | ier=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:466:2: 466 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:471:2: 471 | if(mall_ison()) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:472:2: 472 | call mall_mco(i90_now%this_line,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:473:2: 473 | call mall_mco(i90_now%buffer,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:474:2: 474 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:477:2: 477 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:478:2: 478 | call perr(myname_,'deallocate(new%..)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:479:2: 479 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:480:2: 480 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:482:2: 482 | if(mall_ison()) call mall_co(MALLSIZE_,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:485:2: 485 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:486:2: 486 | call perr(myname_,'deallocate(new)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:487:2: 487 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:488:2: 488 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:505:2: 505 | use m_die,only : perr,die | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:506:2: 506 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:507:2: 507 | integer,optional, intent(out) :: stat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:568:2: 568 | use m_ioutil, only : luavail,opntext,clstext | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:569:2: 569 | use m_die, only : perr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:632:2: 632 | call perr(myname_,'(overflow)',i90_depth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:633:2: 633 | iret=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:634:2: 634 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:641:22: 641 | lu = luavail() ! a more portable version | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:652:2: 652 | write(stderr,'(2a,i5)') myname_,': opntext() error, ios =',ios | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:663:23: 663 | call push_(ios) ! to create buffer space | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:665:2: 665 | write(stderr,'(2a,i5)') myname_,': push_() error, ios =',ios | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:704:2: 704 | call clstext(lu,ios) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:705:2: 705 | if(ios /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:706:2: 706 | iret=-99 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:707:2: 707 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:708:2: 708 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:778:2: 778 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:779:2: 779 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:780:2: 780 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:781:2: 781 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:897:2: 897 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:898:2: 898 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:899:2: 899 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:900:2: 900 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1008:2: 1008 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1009:2: 1009 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1010:2: 1010 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1011:2: 1011 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1021:51: 1021 | ie = min(index(i90_now%this_line,BLK), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1022:2: 1022 | index(i90_now%this_line,EOL)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1021:51: 1021 | ie = min(index(i90_now%this_line,BLK), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1022:2: 1022 | index(i90_now%this_line,EOL)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1021:51: 1021 | ie = min(index(i90_now%this_line,BLK), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1022:2: 1022 | index(i90_now%this_line,EOL)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1134:2: 1134 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1135:2: 1135 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1136:2: 1136 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1137:2: 1137 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1210:2: 1210 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1211:2: 1211 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1212:2: 1212 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1213:2: 1213 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1217:39: 1217 | read(token,*,iostat=ios) x ! Does it require an extension? | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1274:2: 1274 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1275:2: 1275 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1276:2: 1276 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1277:2: 1277 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1669:2: 1669 | write(stderr,'(2a)') 'i90/lablin: cannot find label ', label | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1939:17: 1939 | print *, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1949:17: 1949 | print *, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1721:17: 1721 | fltgetsp = x | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_inpak90.F90:369:17: 362 | call MPI_Bcast(i90_now%buffer,NBUF_MAX,MP_CHARACTER,root,comm,ier) | 2 ...... 369 | call MPI_Bcast(i90_now%nbuf,1,MP_INTEGER,root,comm,ier) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/CHARACTER(*)). m_inpak90.F90:1947:32: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument 'mifans' at (1) [-Wunused-dummy-argument] m_inpak90.F90:1947:56: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument 'miftrm' at (1) [-Wunused-dummy-argument] m_inpak90.F90:1947:48: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument 'moferr' at (1) [-Wunused-dummy-argument] m_inpak90.F90:1947:40: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument 'moftrm' at (1) [-Wunused-dummy-argument] m_inpak90.F90:1882:23: 1882 | subroutine TokGet ( token, default ) | ^ Warning: 'tokget' defined but not used [-Wunused-function] m_inpak90.F90:1938:22: 1938 | subroutine iniin() | ^ Warning: 'iniin' defined but not used [-Wunused-function] m_inpak90.F90:1947:23: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | ^ Warning: 'iunits' defined but not used [-Wunused-function] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_TraceBack.F90 m_TraceBack.F90:35:2: 35 | GenTraceBackString1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_TraceBack.F90:36:2: 36 | GenTraceBackString2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -I. -I../ -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic m_zeit.F90 m_zeit.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:19:25: 19 | public :: zeit_ci ! push a new name to the timer | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:20:25: 20 | public :: zeit_co ! pop the current name on the timer | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:21:28: 21 | public :: zeit_flush ! print per PE timing | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:22:31: 22 | public :: zeit_allflush ! print all PE timing | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:23:28: 23 | public :: zeit_reset ! reset the timers to its initial state | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:27:25: 27 | public :: MWTIME ! MPI_Wtime() wall-clock time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:28:25: 28 | public :: XWTIME ! times() wall-clock time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:29:25: 29 | public :: PUTIME ! times() process user time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:30:25: 30 | public :: PSTIME ! times() process system time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:31:25: 31 | public :: CUTIME ! times() user time of all child-processes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:32:25: 32 | public :: CSTIME ! times() system time of all child-processes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:33:25: 33 | public :: ALLTIME ! all of above | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:166:61: 166 | integer,parameter :: ALLTIME = MWTIME + XWTIME + PUTIME + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:167:2: 167 | PSTIME + CUTIME + CSTIME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:166:61: 166 | integer,parameter :: ALLTIME = MWTIME + XWTIME + PUTIME + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:167:2: 167 | PSTIME + CUTIME + CSTIME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:166:61: 166 | integer,parameter :: ALLTIME = MWTIME + XWTIME + PUTIME + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:167:2: 167 | PSTIME + CUTIME + CSTIME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:174:47: 174 | character(len=8),parameter :: HEADER(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:175:8: 175 | (/ '[MWTIME]','[XWTIME]','[PUTIME]', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:176:35: 176 | '[PSTIME]','[CUTIME]','[CSTIME]' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:179:33: 179 | integer,parameter :: MXN= 250 ! the size of a name list | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:182:32: 182 | integer,parameter :: NSZ= 36 ! the size of a name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:183:32: 183 | integer,parameter :: MXS= 64 ! the depth of the timer stack | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:189:23: 189 | character(len=NSZ), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:190:2: 190 | save :: ciname=' ' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:191:23: 191 | character(len=NSZ), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:192:2: 192 | save :: coname=' ' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:194:27: 194 | integer,save :: mxdep=0 ! the maximum ndep value recorded | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:195:27: 195 | integer,save :: ndep=-1 ! depth, number of net ci_() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:196:32: 196 | integer,save :: lnk_n(0:MXS) ! name index of the depth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:198:16: 198 | integer,save :: nname=-1 ! number of accounts | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:199:23: 199 | character(len=NSZ), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:200:2: 200 | save,dimension(0:MXN) :: name_l ! the accounts | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:201:33: 201 | integer,save,dimension(0:MXN) :: knt_l ! counts of ci_() calls | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:202:44: 202 | integer,save,dimension(0:MXN) :: level_l ! remaining ci_() counts | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:204:30: 204 | real*8,save,dimension(0:5) :: zts_sv ! the last timings | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:206:46: 206 | real*8,save,dimension(0:5,0:MXN) :: zts_l ! credited to a name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:207:46: 207 | real*8,save,dimension(0:5,0:MXN) :: szts_l ! all under the name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:208:47: 208 | real*8,save,dimension(0:5,0:MXN) :: szts_sv ! the last ci_ timings | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:246:38: 246 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:271:22: 271 | zts_sv(i)=zts(i) ! update the record | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:328:44: 328 | character(len=*), intent(in) :: name ! account name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:352:38: 352 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:370:35: 370 | level_l(lname)=level_l(lname)-1 ! close a level | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:373:30: 373 | tms0=zts(i)- zts_sv(i) ! NET by the _account_ | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:374:36: 374 | tms1=zts(i)-szts_sv(i,lname) ! within its SCOPE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:378:31: 378 | if(level_l(lname) == 0) & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:395:23: 395 | tms(i,1)=tms1 ! only the sub-segments | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:503:26: 503 | found = nname >= MXN ! Can not handle too many accounts? | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:504:13: 504 | ith=MXN ! Then use the account for ".foo." | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:506:25: 506 | if(.not.found) then ! Otherwise, add a new account. | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:517:2: 517 | szts_l(i,ith)=0. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:545:32: 545 | integer,intent(in) :: lu ! logical unit for the output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:571:47: 571 | if(.not.balanced) write(lu,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:584:35: 584 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:625:32: 625 | real*8,parameter :: res=.001 ! (sec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:647:43: 647 | write(lu,'(a,t14,a,t21,a,t31,a,t52,a)') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:648:37: 648 | HEADER(itm), 'counts','period', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:649:28: 649 | 'NET m:s %', & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:688:2: 688 | write(num,'(i4)') mxdep | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:690:2: 690 | write(lu,'(2(a,i3),2a,t26,2(1x,f8.2,1x,i4.2,a,i2.2,1x,f6.2,a))')& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:2: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:2: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:2: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:751:25: 751 | real*8,dimension(0:5) :: zts | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:783:2: 783 | ztbf(i,0,l)=ztbf(i,0,l) + zts(i) - zts_sv(i ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:784:2: 784 | ztbf(i,1,l)=ztbf(i,1,l) + zts(i) -szts_sv(i,l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:792:38: 792 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:805:2: 805 | ztbf,nbf,mp_Type_ztbf,root,comm,ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:807:40: 807 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:816:40: 816 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:823:40: 823 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:829:2: 829 | ztmp,nbf,mp_Type_ztbf,root,comm,ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:831:40: 831 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:856:40: 856 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:920:32: 920 | real*8,parameter :: res=.001 ! (sec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:939:32: 939 | write(lu,'(3a,t18,a,t58,a)') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:940:35: 940 | HEADER(itm),'x',adjustl(num), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:941:43: 941 | 'NET avg max imx x% r% i%', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:964:33: 964 | zts_o=zts_o+ztmp(itm,0,l,k) ! compute sum() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:965:33: 965 | zts_s=zts_s+ztmp(itm,1,l,k) ! compute sum() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:972:26: 972 | zta_o=zts_o/max(1,nPE) ! compute mean() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:973:26: 973 | zta_s=zts_s/max(1,nPE) ! compute mean() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:2: 998 | name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] rm -f libmpeu.a ar cq libmpeu.a get_zeits.o m_IndexBin_char.o m_IndexBin_integer.o m_IndexBin_logical.o m_List.o m_MergeSorts.o m_Filename.o m_FcComms.o m_Permuter.o m_SortingTools.o m_String.o m_StrTemplate.o m_chars.o m_die.o m_dropdead.o m_FileResolv.o m_flow.o m_inpak90.o m_ioutil.o m_mall.o m_mpif.o m_mpif90.o m_mpout.o m_rankMerge.o m_realkinds.o m_stdio.o m_TraceBack.o m_zeit.o make[1]: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3/mpeu' make[1]: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3/mct' mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_MCTWorld.F90 m_MCTWorld.F90:35:25: 35 | integer :: ncomps ! Total number of components | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:38:49: 38 | integer,dimension(:),pointer :: nprocspid ! Number of processes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:184:27: 184 | integer, intent(in) :: ncomps ! number of components | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:185:27: 185 | integer, intent(in) :: globalcomm ! global communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:250:2: 250 | globalcomm, reqs(i), ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:404:27: 404 | integer, intent(in) :: ncomps ! number of components | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:405:27: 405 | integer, intent(in) :: globalcomm ! global communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:406:27: 406 | integer, intent(in) :: mycomm ! my communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:712:27: 712 | integer, intent(in) :: comp_rank ! process rank on the communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:714:27: 714 | integer, intent(in) :: comp_id ! component id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:753:2: 753 | comp_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:770:2: 770 | comp_rank, "on component ",comp_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:812:27: 812 | integer, intent(in) :: comp_id ! component id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:831:2: 831 | world_comp_root | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:323:22: 263 | call MPI_SEND(mysize,1,MP_INTEGER,0,myids(i),globalcomm,ier) | 2 ...... 323 | call MPI_SEND(Gprocids,mysize,MP_INTEGER,0,myids(i),globalcomm,ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_MCTWorld.F90:503:38: 503 | integer :: ier,Gsize,myGid,MCTcomm,i,j | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] m_MCTWorld.F90:503:40: 503 | integer :: ier,Gsize,myGid,MCTcomm,i,j | 1 Warning: Unused variable 'j' declared at (1) [-Wunused-variable] m_MCTWorld.F90:195:45: 195 | integer :: ier,myGid,myLid,i,mysize,Gsize,j | 1 Warning: Unused variable 'j' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_AttrVect.F90 m_AttrVect.F90:77:15: 77 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:117:22: 117 | public :: init ! create a local vector | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:118:23: 118 | public :: clean ! clean the local vector | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:119:22: 119 | public :: zero ! zero the local vector | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:120:23: 120 | public :: lsize ! size of the local vector | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:121:24: 121 | public :: nIAttr ! number of integer attributes on local | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:122:24: 122 | public :: nRAttr ! number of real attributes on local | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:123:25: 123 | public :: indexIA ! index the integer attributes | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:124:25: 124 | public :: indexRA ! index the real attributes | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:137:22: 137 | public :: Copy ! copy attributes from one Av to another | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:138:23: 138 | public :: RCopy ! copy real attributes from one Av to another | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:139:23: 139 | public :: ICopy ! copy integer attributes from one Av to another | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:153:41: 153 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:324:2: 324 | call init(aV%rList,rList) ! init.List() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:330:2: 330 | call init(aV%iList,iList) ! init.List() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:334:23: 334 | nIA=nitem(aV%iList) ! nitem.List() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:335:23: 335 | nRA=nitem(aV%rList) ! nitem.List() | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:340:46: 340 | allocate( aV%iAttr(nIA,n),aV%rAttr(nRA,n), stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:614:2: 614 | call List_clean(aV%iList,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:615:2: 615 | if(ier/=0) stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:617:2: 617 | call List_clean(aV%iList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:627:2: 627 | call List_clean(aV%rList,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:628:2: 628 | if(ier/=0) stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:630:2: 630 | call List_clean(aV%rList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:646:2: 646 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:647:2: 647 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:648:2: 648 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:649:2: 649 | call warn(myname_,'deallocate(aV%iAttr)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:650:2: 650 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:666:2: 666 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:667:2: 667 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:668:2: 668 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:669:2: 669 | call warn(myname_,'deallocate(aV%rAttr)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:670:2: 670 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:750:2: 750 | call die(myname_,'attribute array length mismatch', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:751:2: 751 | iLength-rLength) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:755:2: 755 | lsize_ = rLength | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:759:2: 759 | lsize_ = iLength | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:790:21: 790 | use m_die,only : die | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:791:23: 791 | use m_stdio,only : stderr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1097:2: 1097 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1099:2: 1099 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1116:2: 1116 | write(stderr,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1119:2: 1119 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1204:2: 1204 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1206:2: 1206 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1218:2: 1218 | write(stderr,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1223:2: 1223 | write(stderr,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1226:2: 1226 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1491:2: 1491 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1493:2: 1493 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1560:2: 1560 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1562:2: 1562 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1818:2: 1818 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1820:2: 1820 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1836:2: 1836 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1840:2: 1840 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1841:2: 1841 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1846:2: 1846 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1848:2: 1848 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1849:2: 1849 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1962:2: 1962 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1964:2: 1964 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1980:2: 1980 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1984:2: 1984 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1985:2: 1985 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1990:2: 1990 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1992:2: 1992 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1993:2: 1993 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2069:2: 2069 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2071:2: 2071 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2087:2: 2087 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2091:2: 2091 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2092:2: 2092 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2097:2: 2097 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2099:2: 2099 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2100:2: 2100 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2178:2: 2178 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2182:2: 2182 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2187:2: 2187 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2191:2: 2191 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2266:2: 2266 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2270:2: 2270 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2275:2: 2275 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2279:2: 2279 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2347:2: 2347 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2351:2: 2351 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2356:2: 2356 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2360:2: 2360 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2679:2: 2679 | do j=1,aVsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2680:2: 2680 | aVout%rAttr(outxmin+i,j) = aVin%rAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2681:2: 2681 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2682:2: 2682 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2689:2: 2689 | do i=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2690:2: 2690 | aVout%rAttr(outxmin+i,j) = aVin%rAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2691:2: 2691 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2692:2: 2692 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3019:5: 3019 | aVout%iAttr(outxmin+i,j) = aVin%iAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3029:5: 3029 | aVout%iAttr(outxmin+i,j) = aVin%iAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3174:2: 3174 | TrListIsPresent = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3175:2: 3175 | if(present(TrList)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3176:2: 3176 | if(len_trim(TrList) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3177:2: 3177 | TrListIsPresent = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3178:2: 3178 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3179:2: 3179 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3186:2: 3186 | if(TrListIsPresent) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3187:2: 3187 | call RCopyL_(aVin,aVout,rList,TrList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3188:2: 3188 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3189:2: 3189 | call RCopyL_(aVin,aVout,rList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3190:2: 3190 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3198:2: 3198 | TiListIsPresent = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3199:2: 3199 | if(present(TiList)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3200:2: 3200 | if(len_trim(TiList) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3201:2: 3201 | TiListIsPresent = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3202:2: 3202 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3203:2: 3203 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3210:2: 3210 | if(TiListIsPresent) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3211:2: 3211 | call ICopyL_(aVin,aVout,iList,TiList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3212:2: 3212 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3213:2: 3213 | call ICopyL_(aVin,aVout,iList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3214:2: 3214 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3364:2: 3364 | rIndex(n) = List_index(aV%rList, String_tochar(key)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3366:2: 3366 | rIndex(n) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3369:2: 3369 | iIndex(n) = List_index(aV%iList, String_tochar(key)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3371:2: 3371 | iIndex(n) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3381:2: 3381 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3382:2: 3382 | if(present(perrWith)) write(stderr,'(4a)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3385:2: 3385 | call die(myname_,":: both iIndex(n) and rIndex(n) > 0.") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3386:2: 3386 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3387:2: 3387 | if(present(perrWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3388:2: 3388 | write(stderr,'(4a)') myname_,":: ", perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3391:2: 3391 | call die(myname_,dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3392:2: 3392 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3401:2: 3401 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3402:2: 3402 | if(present(perrWith)) write(stderr,'(4a)') myname,":: ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3403:2: 3403 | perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3405:2: 3405 | call die(myname_,":: both iIndex(n) and rIndex(n) <= 0.") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3406:2: 3406 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3407:2: 3407 | if(present(perrWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3408:2: 3408 | write(stderr,'(4a)') myname_,":: ", perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3411:2: 3411 | call die(myname_,dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3412:2: 3412 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3451:2: 3451 | if(present(descend)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3452:2: 3452 | call IndexSort(length, perm, aV%iAttr(iIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3453:2: 3453 | descend_copy(n)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3454:2: 3454 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3455:5: 3455 | call IndexSort(length, perm, aV%iAttr(iIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3456:17: 3456 | descend=.false.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3457:2: 3457 | endif ! if(present(descend)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3459:2: 3459 | if(rIndex(n) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3460:2: 3460 | if(present(descend)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3461:2: 3461 | call IndexSort(length, perm, aV%rAttr(rIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3462:2: 3462 | descend_copy(n)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3463:2: 3463 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3464:2: 3464 | call IndexSort(length, perm, aV%rAttr(rIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3465:17: 3465 | descend=.false.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3466:2: 3466 | endif ! if(present(descend)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3467:2: 3467 | endif ! if (rIndex(n) > 0)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3534:2: 3534 | if(present(perrWith)) write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3538:2: 3538 | write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3539:34: 3539 | ":: size mismatch, ", dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3541:2: 3541 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3549:2: 3549 | do i=1,nIAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3550:2: 3550 | call Permute(aV%iAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3551:2: 3551 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3556:2: 3556 | do i=1,nRAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3557:2: 3557 | call Permute(aV%rAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3558:2: 3558 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3619:2: 3619 | if(present(perrWith)) write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3623:2: 3623 | write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3624:34: 3624 | ":: size mismatch, ", dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3626:2: 3626 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3634:2: 3634 | do i=1,nIAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3635:2: 3635 | call Unpermute(aV%iAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3636:2: 3636 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3641:2: 3641 | do i=1,nRAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3642:2: 3642 | call Unpermute(aV%rAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3643:2: 3643 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3705:2: 3705 | dieWith=dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2001:18: 2001 | outVect(n) = aV%rAttr(index,n) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_AttrVect.F90:3153:47: 3153 | integer, dimension(:), pointer :: aVinindices, aVoutindices | 1 Warning: Unused variable 'avinindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:3153:61: 3153 | integer, dimension(:), pointer :: aVinindices, aVoutindices | 1 Warning: Unused variable 'avoutindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:3148:23: 3148 | logical :: contiguous ! true if index segments are contiguous in memory | 1 Warning: Unused variable 'contiguous' declared at (1) [-Wunused-variable] m_AttrVect.F90:3150:26: 3150 | character*7 :: data_flag ! character variable used as data type flag | 1 Warning: Unused variable 'data_flag' declared at (1) [-Wunused-variable] m_AttrVect.F90:3142:14: 3142 | integer :: i,j,ier ! dummy variables | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] m_AttrVect.F90:3142:20: 3142 | integer :: i,j,ier ! dummy variables | 1 Warning: Unused variable 'ier' declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:33: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable 'inx' declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:19: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable 'inxmin' declared at (1) [-Wunused-variable] m_AttrVect.F90:3142:16: 3142 | integer :: i,j,ier ! dummy variables | 1 Warning: Unused variable 'j' declared at (1) [-Wunused-variable] m_AttrVect.F90:3143:24: 3143 | integer :: num_indices ! Overlapping attribute index number | 1 Warning: Unused variable 'num_indices' declared at (1) [-Wunused-variable] m_AttrVect.F90:3145:26: 3145 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_inindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:3145:42: 3145 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_outindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:39: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable 'outx' declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:28: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable 'outxmin' declared at (1) [-Wunused-variable] m_AttrVect.F90:2942:26: 2942 | character*7 :: data_flag ! character variable used as data type flag | 1 Warning: Unused variable 'data_flag' declared at (1) [-Wunused-variable] m_AttrVect.F90:2937:26: 2937 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_inindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2937:42: 2937 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_outindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2774:26: 2774 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_inindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2774:42: 2774 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_outindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2604:26: 2604 | character*7 :: data_flag ! character variable used as data type flag | 1 Warning: Unused variable 'data_flag' declared at (1) [-Wunused-variable] m_AttrVect.F90:2599:26: 2599 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_inindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2599:42: 2599 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_outindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2433:26: 2433 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_inindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2433:42: 2433 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable 'num_outindices' declared at (1) [-Wunused-variable] m_AttrVect.F90:2333:32: 2333 | integer :: index, aVsize, ierr, n, mysize | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_AttrVect.F90:2252:32: 2252 | integer :: index, aVsize, ierr, n, mysize | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_AttrVect.F90:2164:32: 2164 | integer :: index, aVsize, ierr, n, mysize | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_GlobalMap.F90 m_GlobalMap.F90:59:15: 59 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:63:27: 63 | public :: GlobalMap ! The class data structure | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:67:24: 67 | integer :: gsize ! the Global size | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:68:24: 68 | integer :: lsize ! my local size | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:69:46: 69 | integer,dimension(:),pointer :: counts ! all local sizes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:70:46: 70 | integer,dimension(:),pointer :: displs ! PE ordered locations | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:86:39: 86 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:87:16: 87 | initd_, & ! initialize from all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:88:15: 88 | initr_ ! initialize from the root | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:183:32: 183 | GMap%lsize=GMap%counts(myID) ! the local size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:184:16: 184 | GMap%gsize=l ! the global size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:255:45: 255 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:256:29: 256 | ': _root_ argument error', & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:257:29: 257 | ', size(lns) =',size(lns), & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:276:32: 276 | GMap%lsize=GMap%counts(myID) ! the local size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:277:16: 277 | GMap%gsize=l ! the global size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:379:45: 379 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:380:29: 380 | ': _root_ argument error', & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:402:24: 402 | GMap%gsize = l ! the global size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:579:11: 579 | rank=-1 ! if nowhere fits | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:389:17: 362 | call MPI_bcast(nPEs, 1, MP_INTEGER, my_root, my_comm, ier) | 2 ...... 389 | call MPI_bcast(GMap%counts, nPEs, MP_INTEGER, my_root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalMap.F90:265:17: 265 | call MPI_bcast(GMap%counts, nPEs, MP_INTEGER, root, comm, ier) | 1 ...... 362 | call MPI_bcast(nPEs, 1, MP_INTEGER, my_root, my_comm, ier) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_GlobalSegMap.F90 m_GlobalSegMap.F90:34:15: 34 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:79:26: 79 | integer :: comp_id ! Component ID number | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:80:24: 80 | integer :: ngseg ! No. of Global segments | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:81:24: 81 | integer :: gsize ! No. of Global elements | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:82:45: 82 | integer,dimension(:),pointer :: start ! global seg. start index | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:83:46: 83 | integer,dimension(:),pointer :: length ! segment lengths | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:84:46: 84 | integer,dimension(:),pointer :: pe_loc ! PE locations | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:87:39: 87 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:88:17: 88 | initd_, & ! initialize from all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:90:17: 90 | initp_, & ! initialize in parallel from replicated arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:116:2: 116 | rank1_ , & ! single rank case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:117:2: 117 | rankm_ ! degenerate (multiple) ranks for halo case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:121:2: 121 | PermuteInPlace_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:124:2: 124 | SortPermuteInPlace_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:257:2: 257 | ier = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:258:2: 258 | call die(myname_,'pe_loc/start array size mismatch',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:294:2: 294 | call die(myname_, 'allocate(counts,...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:299:2: 299 | call die(myname_, 'allocate(counts,...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:315:2: 315 | ngseg = ngseg + counts(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:317:2: 317 | displs(i) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:318:2: 318 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:319:2: 319 | displs(i) = displs(i-1) + counts(i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:320:2: 320 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:340:2: 340 | root_pe_loc(ngseg), stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:342:2: 342 | call die(myname_, 'allocate(root_start...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:348:2: 348 | root_pe_loc(1), stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:350:2: 350 | call die(myname_, 'allocate((non)root_start...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:492:45: 492 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:493:29: 493 | ': _root_ argument error', & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:494:33: 494 | ', size(start) =',size(start), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:499:45: 499 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:500:29: 500 | ': _root_ argument error', & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:501:35: 501 | ', size(length) =',size(length), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:506:45: 506 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:507:29: 507 | ': _root_ argument error', & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:508:35: 508 | ', size(pe_loc) =',size(pe_loc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:576:2: 576 | GSMap%gsize = gsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:583:2: 583 | GSMap%gsize = GSMap%gsize + GSMap%length(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:985:2: 985 | write(6,*) rank,'init_index: SIZE ',nseg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:987:2: 987 | do n=1,nseg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:989:2: 989 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:998:4: 998 | comp_id) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1146:2: 1146 | nlocseg = nlocseg + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1420:2: 1420 | pe_storage = pe_storage + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1455:46: 1455 | integer, intent(in) :: PEno ! input process number | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1559:2: 1559 | local_size = local_size + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1589:46: 1589 | integer, intent(in) :: i_g ! a global index | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1603:10: 1603 | rank=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1643:46: 1643 | integer, intent(in) :: i_g ! a global index | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1683:16: 1683 | rank = -1 ! null value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1697:2: 1697 | ilc = GSMap%start(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1698:2: 1698 | ile = ilc + GSMap%length(i) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1702:2: 1702 | if(ilc <= i_g .and. i_g <= ile) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1703:2: 1703 | n = n + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1704:2: 1704 | rank(n) = GSMap%pe_loc(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1705:2: 1705 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1791:2: 1791 | new = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1796:2: 1796 | do i=1, count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1797:2: 1797 | if(GSMap%pe_loc(n) == temp_list(i)) new = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1798:2: 1798 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1803:2: 1803 | if(new) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1804:2: 1804 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1805:2: 1805 | temp_list(count) = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1806:2: 1806 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1809:2: 1809 | ierr = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1810:2: 1810 | call die(myname_,'negative value of GSMap%pe_loc',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1823:2: 1823 | call die(myname_,'allocate(pe_list...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1827:2: 1827 | pe_list(n) = temp_list(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1840:2: 1840 | call die(myname_,'deallocate(perm)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1936:2: 1936 | lower_index = pointGSMap%start(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1937:2: 1937 | upper_index = lower_index + pointGSMap%length(iseg) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1939:2: 1939 | if((points(ipoint) >= lower_index) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1940:2: 1940 | (points(ipoint) <= upper_index)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1941:2: 1941 | pe_locs(ipoint) = pointGSMap%pe_loc(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1942:2: 1942 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2072:2: 2072 | overlap = .TRUE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2073:2: 2073 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2152:2: 2152 | call die(myname_,'key2 GSMap size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2156:2: 2156 | call die(myname_,'key1 key2 size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2300:2: 2300 | call die(myname_,'key2 GSMap size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2304:2: 2304 | call die(myname_,'key1 key2 size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:557:17: 523 | call MPI_BCAST(GSMap%ngseg, 1, MP_INTEGER, root, my_comm, ier) | 2 ...... 557 | call MPI_BCAST(GSMap%start, GSMap%ngseg, MP_INTEGER, root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMap.F90:560:17: 523 | call MPI_BCAST(GSMap%ngseg, 1, MP_INTEGER, root, my_comm, ier) | 2 ...... 560 | call MPI_BCAST(GSMap%length, GSMap%ngseg, MP_INTEGER, root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMap.F90:563:17: 523 | call MPI_BCAST(GSMap%ngseg, 1, MP_INTEGER, root, my_comm, ier) | 2 ...... 563 | call MPI_BCAST(GSMap%pe_loc, GSMap%ngseg, MP_INTEGER, root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMap.F90:2409:10: 2409 | use m_MCTWorld, only: ThisMCTWorld | 1 Warning: Unused module variable 'thismctworld' which has been explicitly imported at (1) [-Wunused-variable] m_GlobalSegMap.F90:918:33: 918 | integer :: i,j,k,n ! generic indicies | 1 Warning: Unused variable 'k' declared at (1) [-Wunused-variable] m_GlobalSegMap.F90:478:23: 478 | integer :: myID,ier,l,i | 1 Warning: Unused variable 'l' declared at (1) [-Wunused-variable] m_GlobalSegMap.F90:228:31: 228 | integer :: nPEs, myID, ier, l, i | 1 Warning: Unused variable 'l' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_GlobalSegMapComms.F90 m_GlobalSegMapComms.F90:509:2: 509 | IntBuffer(n) = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:510:2: 510 | IntBuffer(GSMap%ngseg+n) = GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:511:2: 511 | IntBuffer(2*GSMap%ngseg+n) = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:521:2: 521 | GSMap%pe_loc(GSMap%ngseg), stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:523:2: 523 | if(.not. present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:524:2: 524 | call die(myname_,'off-root allocate(GSMap%start...)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:525:2: 525 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:526:2: 526 | write(stderr,*) myname_,':: error during off-root allocate(GSMap%start...)' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:527:2: 527 | status = 7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:528:2: 528 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:529:2: 529 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:533:2: 533 | GSMap%start(n) = IntBuffer(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:534:2: 534 | GSMap%length(n) = IntBuffer(GSMap%ngseg+n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:535:2: 535 | GSMap%pe_loc(n) = IntBuffer(2*GSMap%ngseg+n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:258:17: 238 | call MPI_ISEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 258 | call MPI_ISEND(outgoingGSMap%start, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:265:17: 238 | call MPI_ISEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 265 | call MPI_ISEND(outgoingGSMap%length, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:272:17: 238 | call MPI_ISEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 272 | call MPI_ISEND(outgoingGSMap%pe_loc, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:133:16: 112 | call MPI_SEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 133 | call MPI_SEND(outgoingGSMap%start, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:140:16: 112 | call MPI_SEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 140 | call MPI_SEND(outgoingGSMap%length, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:147:16: 112 | call MPI_SEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 147 | call MPI_SEND(outgoingGSMap%pe_loc, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_Accumulator.F90 m_Accumulator.F90:51:15: 51 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:72:23: 72 | public :: clean ! destruction method | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:74:23: 74 | public :: lsize ! local length of the data arrays | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:78:24: 78 | public :: nIAttr ! number of integer fields | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:79:24: 79 | public :: nRAttr ! number of real fields | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:80:25: 80 | public :: indexIA ! index the integer fields | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:81:25: 81 | public :: indexRA ! index the real fields | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:82:26: 82 | public :: getIList ! Return tag from INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:84:26: 84 | public :: getRList ! Return tag from REAL attribute | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:100:41: 100 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:101:15: 101 | init_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:102:16: 102 | inits_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:106:41: 106 | interface initp ; module procedure initp_ ; end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:366:2: 366 | call initp_(aC=aC, iAction=my_iAction, num_steps=num_steps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:367:2: 367 | steps_done=my_steps_done) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:380:2: 380 | call initp_(aC=aC, rAction=my_rAction, num_steps=num_steps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:381:2: 381 | steps_done=my_steps_done) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:400:2: 400 | call AttrVect_init(aV=aC%data,iList=iList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:403:2: 403 | call AttrVect_init(aV=aC%data,rList=rList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:523:2: 523 | call AttrVect_init(aV=aC%data,iList=iList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:526:2: 526 | call AttrVect_init(aV=aC%data,rList=rList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:620:2: 620 | allocate(aC%iAction(size(iAction)),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:621:2: 621 | if(ier /= 0) call die(myname_,"iAction allocate",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:623:2: 623 | do i=1,size(iAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:624:2: 624 | aC%iAction(i) = iAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:625:2: 625 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:635:2: 635 | allocate(aC%rAction(size(rAction)),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:636:2: 636 | if(ier /= 0) call die(myname_,"iAction allocate",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:638:2: 638 | do i=1,size(rAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:639:2: 639 | aC%rAction(i) = rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:640:2: 640 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:764:2: 764 | iActionArray(i)=bC%iAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:770:2: 770 | rActionArray(i)=bC%rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:780:2: 780 | rList=ListExportToChar(temp_rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:781:2: 781 | rAction=rActionArray, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:790:2: 790 | call init_(aC, iList=ListExportToChar(temp_iList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:791:2: 791 | iAction=iActionArray, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:793:2: 793 | num_steps=myNumSteps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:800:2: 800 | call init_(aC, rList=ListExportToChar(temp_rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:801:2: 801 | rAction=rActionArray, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:802:2: 802 | lsize=aC_lsize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:803:2: 803 | num_steps=myNumSteps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:974:2: 974 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:975:2: 975 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:976:2: 976 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:977:2: 977 | call warn(myname_,'deallocate(aC%iAction)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:978:2: 978 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:988:2: 988 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:989:2: 989 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:990:2: 990 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:991:2: 991 | call warn(myname_,'deallocate(aC%rAction)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:992:2: 992 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1078:2: 1078 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1080:2: 1080 | call die(myname_,"Neither aC%iAction nor aC%rAction are associated") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1090:2: 1090 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1092:2: 1092 | call die(myname_,"Neither aC%data%iList nor aC%data%rList are allocated") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1100:2: 1100 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1101:2: 1101 | aC_associated = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1102:2: 1102 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1103:2: 1103 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1105:2: 1105 | call die(myname_,"size(aC%iAction<=0), size = ", size(aC%iAction)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1106:2: 1106 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1112:2: 1112 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1113:2: 1113 | aC_associated = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1114:2: 1114 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1115:2: 1115 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1117:2: 1117 | call die(myname_,"size(aC%rAction<=0), size = ", size(aC%rAction)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1118:2: 1118 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1127:2: 1127 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1128:2: 1128 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1129:2: 1129 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1131:2: 1131 | call die(myname_,"No attributes found in aC%data") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1132:2: 1132 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1137:2: 1137 | if( size(aC%iAction) /= Attr_nIAttr(aC%data) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1138:2: 1138 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1139:2: 1139 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1140:2: 1140 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1142:2: 1142 | call die(myname_,"size(aC%iAction) /= nIAttr(aC%data)") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1143:2: 1143 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1144:2: 1144 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1146:2: 1146 | do i=1,Attr_nIAttr(aC%data) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1147:2: 1147 | if( (aC%iAction(i) /= MCT_SUM) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1149:2: 1149 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1150:2: 1150 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1151:2: 1151 | if(present(source_name)) write(stderr,*) source_name, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1152:2: 1152 | myname_, ":: ERROR, Invalid value found in aC%iAction" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1153:2: 1153 | call die(myname_,"Invalid value found in aC%iAction", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1154:2: 1154 | aC%iAction(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1155:2: 1155 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1156:2: 1156 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1157:2: 1157 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1163:2: 1163 | if( size(aC%rAction) /= Attr_nRAttr(aC%data) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1164:2: 1164 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1165:2: 1165 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1166:2: 1166 | if(present(source_name)) write(stderr,*) source_name, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1167:2: 1167 | myname_, ":: ERROR, size(aC%rAction) /= nRAttr(aC%data)" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1168:2: 1168 | call die(myname_,"size(aC%rAction) /= nRAttr(aC%data)") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1169:2: 1169 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1170:2: 1170 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1172:2: 1172 | do i=1,Attr_nRAttr(aC%data) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1173:2: 1173 | if( (aC%rAction(i) /= MCT_SUM) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1175:2: 1175 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1176:2: 1176 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1177:2: 1177 | if(present(source_name)) write(stderr,*) source_name, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1178:2: 1178 | myname_, ":: ERROR, Invalid value found in aC%rAction", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1179:2: 1179 | aC%rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1180:2: 1180 | call die(myname_,"Invalid value found in aC%rAction", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1181:2: 1181 | aC%iAction(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1182:2: 1182 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1183:2: 1183 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1184:2: 1184 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1273:2: 1273 | myNumSteps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1322:2: 1322 | myStepsDone | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1549:2: 1549 | if(indexIA_==0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1550:2: 1550 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1551:2: 1551 | if(present(perrWith)) write(stderr,'(4a)') perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1553:2: 1553 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1554:2: 1554 | write(stderr,'(4a)') dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1556:2: 1556 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1557:2: 1557 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1558:2: 1558 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1620:2: 1620 | if(indexRA_==0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1621:2: 1621 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1622:2: 1622 | if(present(perrWith)) write(stderr,'(4a)') perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1624:2: 1624 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1625:2: 1625 | write(stderr,'(4a)') dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1627:2: 1627 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1628:2: 1628 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1629:2: 1629 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2309:2: 2309 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2311:2: 2311 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2312:2: 2312 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2348:2: 2348 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2350:2: 2350 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2351:2: 2351 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2430:20: 2430 | integer :: aCindex, aVindex | 1 Warning: Unused variable 'acindex' declared at (1) [-Wunused-variable] m_Accumulator.F90:2429:45: 2429 | integer, dimension(:), pointer :: aCindices, aVindices | 1 Warning: Unused variable 'acindices' declared at (1) [-Wunused-variable] m_Accumulator.F90:2430:29: 2430 | integer :: aCindex, aVindex | 1 Warning: Unused variable 'avindex' declared at (1) [-Wunused-variable] m_Accumulator.F90:2429:56: 2429 | integer, dimension(:), pointer :: aCindices, aVindices | 1 Warning: Unused variable 'avindices' declared at (1) [-Wunused-variable] m_Accumulator.F90:2433:17: 2433 | integer :: ierr, l, n | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_Accumulator.F90:2426:24: 2426 | integer :: num_indices | 1 Warning: Unused variable 'num_indices' declared at (1) [-Wunused-variable] m_Accumulator.F90:868:14: 868 | integer :: i,ier | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] m_Accumulator.F90:868:18: 868 | integer :: i,ier | 1 Warning: Unused variable 'ier' declared at (1) [-Wunused-variable] m_Accumulator.F90:866:23: 866 | integer :: myNumSteps, myStepsDone | 1 Warning: Unused variable 'mynumsteps' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_AttrVectComms.F90 m_AttrVectComms.F90:37:15: 37 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:39:24: 39 | public :: gather ! gather all local vectors to the root | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:40:25: 40 | public :: scatter ! scatter from the root to all PEs | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:41:23: 41 | public :: bcast ! bcast from root to all PEs | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:42:22: 42 | public :: send ! send an AttrVect | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:43:22: 43 | public :: recv ! receive an AttrVect | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:46:2: 46 | GM_gather_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:47:2: 47 | GSM_gather_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:50:2: 50 | GM_scatter_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:51:2: 51 | GSM_scatter_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:175:2: 175 | write(stderr,*) myname_,':: call List_send(inAV%iList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:176:2: 176 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:177:2: 177 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:179:2: 179 | call die(myname_,':: call List_send(inAV%iList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:188:2: 188 | write(stderr,*) myname_,':: call List_send(inAV%rList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:189:2: 189 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:190:2: 190 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:192:2: 192 | call die(myname_,':: call List_send(inAV%rList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:221:2: 221 | call MPI_SEND(inAV%iAttr(1,1), AVlength*List_nitem(inAV%iList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:224:2: 224 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:225:2: 225 | call MP_perr_die(myname_,':: call MPI_SEND(inAV%iAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:226:2: 226 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:234:2: 234 | call MPI_SEND(inAV%rAttr(1,1), AVlength*List_nitem(inAV%rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:237:2: 237 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:238:2: 238 | call MP_perr_die(myname_,':: call MPI_SEND(inAV%rAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:239:2: 239 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:332:2: 332 | write(stderr,*) myname_,':: call List_recv(outAV%iList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:333:2: 333 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:334:2: 334 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:336:2: 336 | call die(myname_,':: call List_recv(outAV%iList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:345:2: 345 | write(stderr,*) myname_,':: call List_recv(outAV%rList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:346:2: 346 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:347:2: 347 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:349:2: 349 | call die(myname_,':: call List_recv(outAV%rList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:376:2: 376 | call MPI_RECV(outAV%iAttr(1,1), AVlength*List_nitem(outAV%iList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:379:2: 379 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:380:2: 380 | call MP_perr_die(myname_,':: call MPI_RECV(outAV%iAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:381:2: 381 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:394:2: 394 | call MPI_RECV(outAV%rAttr(1,1), AVlength*List_nitem(outAV%rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:397:2: 397 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:398:2: 398 | call MP_perr_die(myname_,':: call MPI_RECV(outAV%rAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:399:2: 399 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:489:49: 489 | write(stderr,'(2a,i4,a,i4,a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:490:42: 490 | ': invalid input, lsize(GMap) =',niV, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:509:27: 509 | nIA=AttrVect_nIAttr(iV) ! number of INTEGER attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:510:27: 510 | nRA=AttrVect_nRAttr(iV) ! number of REAL attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:518:58: 518 | call fc_gatherv_int(iV%iAttr,niV*nIA,MP_INTEGER, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:524:58: 524 | call fc_gatherv_int(iV%iAttr,niV*nIA,MP_INTEGER, & | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:536:57: 536 | call fc_gatherv_fp(iV%rAttr,niV*nRA,mp_type_Av, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:542:57: 542 | call fc_gatherv_fp(iV%rAttr,niV*nRA,mp_type_Av, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:555:42: 555 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:703:2: 703 | call MP_perr_die(myname_,':: call MPI_COMM_RANK()',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:735:2: 735 | lns(n) = lns(n) + GSMap%length(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:785:2: 785 | write(stderr,*) myname_,':: allocate(current_pos(..) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:787:2: 787 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:788:2: 788 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:789:2: 789 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:790:2: 790 | call die(myname_,'allocate(current_pos(..) failed.' ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:791:2: 791 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:797:2: 797 | current_pos(n) = workGMap%displs(n) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:809:2: 809 | pe = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:813:2: 813 | ilb = current_pos(pe) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:814:2: 814 | iub = current_pos(pe) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:818:2: 818 | olb = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:819:2: 819 | oub = GSMap%start(n) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:823:2: 823 | current_pos(pe) = current_pos(pe) + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:827:2: 827 | do m=1,AttrVect_nIAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:828:5: 828 | oV%iAttr(m,olb:oub) = workV%iAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:829:2: 829 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:831:2: 831 | do m=1,AttrVect_nRAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:832:5: 832 | oV%rAttr(m,olb:oub) = workV%rAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:833:2: 833 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:841:2: 841 | write(stderr,*) myname_,'error in deallocate(current_pos), stat=',ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:842:2: 842 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:843:2: 843 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:844:2: 844 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:845:2: 845 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:846:2: 846 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:976:52: 976 | write(stderr,'(2a,i5,a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:998:32: 998 | nIA = AttrVect_nIAttr(iV) ! number of INTEGER attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:999:32: 999 | nRA = AttrVect_nRAttr(iV) ! number of REAL attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1002:2: 1002 | call List_copy(iList,iV%iList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1006:2: 1006 | call List_copy(rList,iV%rList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1041:58: 1041 | call MPI_scatterv(iV%iAttr(1,1),GMap%counts*nIA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1050:65: 1050 | call MPI_scatterv(nonRootAV%iAttr(1,1),GMap%counts*nIA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1070:58: 1070 | call MPI_scatterv(iV%rAttr(1,1),GMap%counts*nRA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1080:60: 1080 | call MPI_scatterv(nonRootAV%rAttr,GMap%counts*nRA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1096:42: 1096 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1257:2: 1257 | write(stderr,'(2a,i5,a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1259:2: 1259 | GSMap%gsize, ', lsize(iV) =',AttrVect_lsize(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1260:2: 1260 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1261:2: 1261 | stat=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1262:2: 1262 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1263:2: 1263 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1264:2: 1264 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1307:2: 1307 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1308:2: 1308 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1310:2: 1310 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1320:2: 1320 | write(stderr,*) myname_,':: allocate(lns...) failed, stat=',ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1321:2: 1321 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1322:2: 1322 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1323:2: 1323 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1324:2: 1324 | call die(myname_,'allocate(lns)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1325:2: 1325 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1333:2: 1333 | lns(n) = lns(n) + GSMap%length(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1349:2: 1349 | write(stderr,*) myname_,':: allocate(lns...) failed, stat=',ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1350:2: 1350 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1351:2: 1351 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1352:2: 1352 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1353:2: 1353 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1354:2: 1354 | call die(myname_,'allocate(lns(1))',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1355:2: 1355 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1376:2: 1376 | write(stderr,*) myname_,':: allocate(current_pos..) failed, stat=', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1377:2: 1377 | ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1378:2: 1378 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1379:2: 1379 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1380:2: 1380 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1381:2: 1381 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1382:2: 1382 | call die(myname_,'allocate(current_pos)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1383:2: 1383 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1389:2: 1389 | current_pos(n) = GMap%displs(n) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1401:2: 1401 | pe = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1405:2: 1405 | ilb = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1406:2: 1406 | iub = GSMap%start(n) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1410:2: 1410 | olb = current_pos(pe) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1411:2: 1411 | oub = current_pos(pe) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1415:2: 1415 | current_pos(pe) = current_pos(pe) + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1419:2: 1419 | do m=1,AttrVect_nIAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1420:5: 1420 | workV%iAttr(m,olb:oub) = iV%iAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1421:2: 1421 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1423:2: 1423 | do m=1,AttrVect_nRAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1424:5: 1424 | workV%rAttr(m,olb:oub) = iV%rAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1425:2: 1425 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1433:2: 1433 | write(stderr,*) myname_,':: deallocate(current_pos) failed. ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1435:2: 1435 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1436:2: 1436 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1437:2: 1437 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1438:2: 1438 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1439:2: 1439 | call die(myname_,'deallocate(current_pos)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1440:2: 1440 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1455:2: 1455 | ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1457:2: 1457 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1458:2: 1458 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1460:2: 1460 | call die(myname_,'ERROR returning from GM_scatter_()',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1476:2: 1476 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1477:2: 1477 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1479:2: 1479 | call die(myname_,'deallocate(lns)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1591:50: 1591 | call String_bcast(iLStr,root,comm,stat=ier) ! bcast.String() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1594:2: 1594 | write(stderr,*) myname_,'bcast.String(iLstr), ier=',ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1595:2: 1595 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1596:2: 1596 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1597:2: 1597 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1598:2: 1598 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1599:2: 1599 | call die(myname_,'String_bcast(iLStr) failed',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1600:2: 1600 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1610:50: 1610 | call String_bcast(rLStr,root,comm,stat=ier) ! bcast.String() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1612:2: 1612 | write(stderr,*) myname_,'bcast.String(iLstr), ier=',ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1613:2: 1613 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1614:2: 1614 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1615:2: 1615 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1616:2: 1616 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1617:2: 1617 | call die(myname_,'String_bcast(iLStr) failed',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1618:2: 1618 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1626:2: 1626 | call AttrVect_init(aV,iList=char(iLStr),rList=char(rLStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1627:2: 1627 | lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1631:2: 1631 | call AttrVect_init(aV,iList=char(iLStr),lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1635:2: 1635 | call AttrVect_init(aV,rList=char(rLStr),lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1639:2: 1639 | write(stderr,*) myname_,':: Nonpositive numbers of both ',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1641:2: 1641 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1642:2: 1642 | stat = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1643:2: 1643 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1644:2: 1644 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1645:2: 1645 | call die(myname_,'AV has not been initialized',-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1646:2: 1646 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1659:2: 1659 | call MP_perr_die(myname_,'MPI_bcast(iAttr) failed.',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1671:2: 1671 | call MP_perr_die(myname_,'MPI_bcast(rAttr) failed.',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1657:20: 1570 | call MPI_bcast(nIA,1,MP_INTEGER,root,comm,ier) | 2 ...... 1657 | call MPI_bcast(aV%iAttr,nIA*lsize,mp_Type_aV,root,comm,ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2) m_AttrVectComms.F90:1669:20: 1570 | call MPI_bcast(nIA,1,MP_INTEGER,root,comm,ier) | 2 ...... 1669 | call MPI_bcast(aV%rAttr,nRA*lsize,mp_Type_aV,root,comm,ier) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_AttrVectComms.F90:1070:26: 1041 | call MPI_scatterv(iV%iAttr(1,1),GMap%counts*nIA, & | 2 ...... 1070 | call MPI_scatterv(iV%rAttr(1,1),GMap%counts*nRA, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_AttrVectComms.F90:1071:40: 1042 | GMap%displs*nIA,MP_INTEGER,oV%iAttr(1,1), & | 2 ...... 1071 | GMap%displs*nRA,mp_type_Av,oV%rAttr(1,1), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_AttrVectComms.F90:356:16: 319 | call MPI_RECV(ListAssoc, 2, MP_LOGICAL, dest, TagBase, comm, & | 2 ...... 356 | call MPI_RECV(AVlength, 1, MP_type(AVlength), dest, TagBase+5, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_AttrVectComms.F90:206:16: 163 | call MPI_SEND(ListAssoc, 2, MP_LOGICAL, dest, TagBase, comm, ierr) | 2 ...... 206 | call MPI_SEND(AVlength, 1, MP_type(AVlength), dest, TagBase+5, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_SparseMatrix.F90 m_SparseMatrix.F90:81:2: 81 | integer :: ncols | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:82:2: 82 | type(AttrVect) :: data | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:151:2: 151 | exportGlobalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:155:2: 155 | exportGlobalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:159:2: 159 | exportLocalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:163:2: 163 | exportLocalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:167:2: 167 | exportMatrixElementsSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:168:2: 168 | exportMatrixElementsDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:172:2: 172 | importGlobalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:176:2: 176 | importGlobalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:180:2: 180 | importLocalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:184:2: 184 | importLocalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:188:2: 188 | importMatrixElementsSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:189:2: 189 | importMatrixElementsDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:195:2: 195 | GlobalNumElements_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:199:2: 199 | ComputeSparsitySP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:200:2: 200 | ComputeSparsityDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:204:2: 204 | local_row_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:208:2: 208 | global_row_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:212:2: 212 | local_col_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:216:2: 216 | global_col_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:220:2: 220 | CheckBounds_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:224:2: 224 | row_sumSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:225:2: 225 | row_sumDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:229:2: 229 | row_sum_checkSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:230:2: 230 | row_sum_checkDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:1973:2: 1973 | call MP_perr_die(myname_,"MPI_ALLREDUCE(MySparsity...",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2057:2: 2057 | call MP_perr_die(myname_,"MPI_ALLREDUCE(MySparsity...",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2140:2: 2140 | (sMat%data%iAttr(igrow,i) <= 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2141:2: 2141 | ierror = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2142:2: 2142 | call die(myname_,"Row index out of bounds",ierror) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2148:2: 2148 | (sMat%data%iAttr(igcol,i) <= 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2149:2: 2149 | ierror = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2150:2: 2150 | call die(myname_,"Column index out of bounds",ierror) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2255:2: 2255 | sMat%data%rAttr(iwgt,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2376:2: 2376 | sMat%data%rAttr(iwgt,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2471:2: 2471 | if(abs(sums(i) - valid_sums(j)) > abs_tol) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2472:2: 2472 | num_invalid = num_invalid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2473:2: 2473 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2481:2: 2481 | valid = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2482:2: 2482 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2556:2: 2556 | if(abs(sums(i) - valid_sums(j)) > abs_tol) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2557:2: 2557 | num_invalid = num_invalid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2558:2: 2558 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2566:2: 2566 | valid = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2567:2: 2567 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2271:9: 2271 | sums = gsums | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_SparseMatrix.F90:1976:16: 1976 | sparsity = MySparsity | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_SparseMatrix.F90:2383:21: 2353 | call MPI_ALLREDUCE(end_row, num_rows, 1, MP_INTEGER, MP_MAX, & | 2 ...... 2383 | call MPI_ALLREDUCE(lsums, gsums, num_rows, mp_Type_lsums, MP_SUM, comm, ierr) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_SparseMatrix.F90:2383:28: 2353 | call MPI_ALLREDUCE(end_row, num_rows, 1, MP_INTEGER, MP_MAX, & | 2 ...... 2383 | call MPI_ALLREDUCE(lsums, gsums, num_rows, mp_Type_lsums, MP_SUM, comm, ierr) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_SparseMatrix.F90:1840:40: 1840 | subroutine global_col_range_(sMat, comm, start_col, end_col) | 1 Warning: Unused dummy argument 'comm' at (1) [-Wunused-dummy-argument] m_SparseMatrix.F90:1719:40: 1719 | subroutine global_row_range_(sMat, comm, start_row, end_row) | 1 Warning: Unused dummy argument 'comm' at (1) [-Wunused-dummy-argument] m_SparseMatrix.F90:382:20: 382 | integer :: row,col | 1 Warning: Unused variable 'col' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_Navigator.F90 m_Navigator.F90:40:15: 40 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:44:27: 44 | public :: Navigator ! The class data structure | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:47:30: 47 | integer :: NumSegments ! Number of defined Segments | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:48:31: 48 | integer :: VectorLength ! Length of the Vector being indexed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:65:48: 65 | interface Navigator_init; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:147:2: 147 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:149:2: 149 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:378:2: 378 | write(stderr,'(3a,2(i8,a))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:382:2: 382 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:525:2: 525 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:528:2: 528 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:534:2: 534 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:537:2: 537 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:543:2: 543 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:546:2: 546 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:626:2: 626 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:629:2: 629 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:635:2: 635 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:638:2: 638 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:644:2: 644 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:647:2: 647 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_AttrVectReduce.F90 m_AttrVectReduce.F90:45:15: 45 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:182:2: 182 | do i=1,AttrVect_nIAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:183:2: 183 | outAV%iAttr(i,1) = outAV%iAttr(i,1) + inAV%iAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:184:2: 184 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:188:2: 188 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:189:2: 189 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:190:2: 190 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:198:2: 198 | outAV%iAttr(i,1) = inAV%iAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:202:2: 202 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:208:2: 208 | do i=1,AttrVect_nIAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:209:2: 209 | if(inAV%iAttr(i,j) < outAV%iAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:210:2: 210 | outAV%iAttr(i,1) = inAV%iAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:211:2: 211 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:212:2: 212 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:216:2: 216 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:217:2: 217 | if(inAV%rAttr(i,j) < outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:218:2: 218 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:219:2: 219 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:220:2: 220 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:228:2: 228 | outAV%iAttr(i,1) = inAV%iAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:232:2: 232 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:238:2: 238 | do i=1,AttrVect_nIAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:239:2: 239 | if(inAV%iAttr(i,j) > outAV%iAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:240:2: 240 | outAV%iAttr(i,1) = inAV%iAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:241:2: 241 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:242:2: 242 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:246:2: 246 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:247:2: 247 | if(inAV%rAttr(i,j) > outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:248:2: 248 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:249:2: 249 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:250:2: 250 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:366:2: 366 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:367:2: 367 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:368:2: 368 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:376:2: 376 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:382:2: 382 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:383:2: 383 | if(inAV%rAttr(i,j) < outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:384:2: 384 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:385:2: 385 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:386:2: 386 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:394:2: 394 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:400:2: 400 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:401:2: 401 | if(inAV%rAttr(i,j) > outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:402:2: 402 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:403:2: 403 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:404:2: 404 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:519:2: 519 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:520:2: 520 | MP_Type(inAV%rAttr(1,1)), MP_SUM, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:521:2: 521 | comm, ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:523:2: 523 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:527:2: 527 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:531:2: 531 | write(stderr,'(2a,i8,a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:537:2: 537 | write(stderr,*) myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:539:2: 539 | call MP_perr_die(myname_, 'MPI_AllReduce() failed.', ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:551:2: 551 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:552:2: 552 | MP_Type(inAV%iAttr(1,1)), MP_SUM, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:553:2: 553 | comm, ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:555:2: 555 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:559:2: 559 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:563:2: 563 | write(stderr,'(2a,i8,a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:569:2: 569 | write(stderr,*) myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:571:2: 571 | call MP_perr_die(myname_, 'MPI_AllReduce() failed.', ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:753:2: 753 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:763:2: 763 | lsize=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:779:2: 779 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:780:2: 780 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:781:2: 781 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:783:2: 783 | outAV%rAttr(AttrVect_nRAttr(outAV),1) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:784:2: 784 | outAV%rAttr(AttrVect_nRAttr(outAV),1) + weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:790:2: 790 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:791:2: 791 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:792:2: 792 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:864:2: 864 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:874:2: 874 | lsize=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:890:2: 890 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:891:2: 891 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:892:2: 892 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:894:2: 894 | outAV%rAttr(AttrVect_nRAttr(outAV),1) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:895:2: 895 | outAV%rAttr(AttrVect_nRAttr(outAV),1) + weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:901:2: 901 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:902:2: 902 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:903:2: 903 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:998:2: 998 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:1004:2: 1004 | WeightSumAttr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:1084:2: 1084 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:1090:2: 1090 | WeightSumAttr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:551:20: 519 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 2 ...... 551 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_AttrVectReduce.F90:551:32: 519 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 2 ...... 551 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_AccumulatorComms.F90 m_AccumulatorComms.F90:37:15: 37 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:43:24: 43 | public :: gather ! gather all local vectors to the root | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:44:25: 44 | public :: scatter ! scatter from the root to all PEs | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:45:23: 45 | public :: bcast ! bcast from root to all PEs | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:660:2: 660 | nIAttr = size(aC%iAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:662:2: 662 | nIAttr = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:666:2: 666 | nRAttr = size(aC%rAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:668:2: 668 | nRAttr = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:699:2: 699 | AccBuff(4+i) = aC%iAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:705:2: 705 | AccBuff(4+nIAttr+i) = aC%rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:755:2: 755 | call Accumulator_initp(aC,iAction=aC_iAction,rAction=aC_rAction, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:766:2: 766 | if(myID /= root) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:767:2: 767 | call Accumulator_initp(aC,iAction=aC_iAction, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:770:2: 770 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:771:2: 771 | deallocate(aC_iAction,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:772:2: 772 | if(ier /= 0) call die(myname_,"deallocate aC_iAction...",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:776:2: 776 | if(myID /= root) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:777:2: 777 | call Accumulator_initp(aC,rAction=aC_rAction, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:780:2: 780 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:781:2: 781 | deallocate(aC_rAction,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:782:2: 782 | if(ier /= 0) call die(myname_,"deallocate aC_iAction...",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:713:17: 677 | call MPI_BCAST(AccBuffSize, 1, MP_INTEGER, root, comm, ier) | 2 ...... 713 | call MPI_BCAST(AccBuff, AccBuffSize, MP_INTEGER, root, comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_AccumulatorComms.F90:643:19: 643 | logical :: status | 1 Warning: Unused variable 'status' declared at (1) [-Wunused-variable] m_AccumulatorComms.F90:237:24: 237 | integer :: myID, ier, i | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] m_AccumulatorComms.F90:136:24: 136 | integer :: myID, ier, i | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_GeneralGrid.F90 m_GeneralGrid.F90:125:2: 125 | initCartesianDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:129:2: 129 | initUnstructuredDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:374:2: 374 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:380:2: 380 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:394:2: 394 | (.not.present(CoordSortOrder)) ) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:395:2: 395 | (size(descend) /= nitems) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:394:2: 394 | (.not.present(CoordSortOrder)) ) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:395:2: 395 | (size(descend) /= nitems) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:397:2: 397 | write(stderr,*) myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:404:2: 404 | call die(myname_, 'ERROR using -descend- argument; & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:806:2: 806 | call die(myname_,"size(iGGrid%descend) must equal ncoord, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:820:2: 820 | call die(myname_,"allocate(oGGrid%descend...", ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:824:2: 824 | oGGrid%descend(i) = iGGrid%descend(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:996:2: 996 | write(stderr,'(2a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:998:2: 998 | Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:999:2: 999 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1047:2: 1047 | write(stderr,'(4a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1052:2: 1052 | call die(myname_,'size of and arguments must match') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1107:2: 1107 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1113:2: 1113 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1180:2: 1180 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1182:2: 1182 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1196:2: 1196 | do i=1,n-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1197:2: 1197 | nCycles = nCycles * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1198:2: 1198 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1203:2: 1203 | do i=n+1,NumDims | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1204:2: 1204 | nRepeat = nRepeat * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1205:2: 1205 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1217:2: 1217 | do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1218:2: 1218 | do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1219:2: 1219 | GGrid%data%rAttr(iAxis,index) = AxisData(j,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1220:2: 1220 | index = index+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1221:2: 1221 | end do ! do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1222:2: 1222 | end do ! do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1344:2: 1344 | write(stderr,'(2a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1346:2: 1346 | Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1347:2: 1347 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1395:2: 1395 | write(stderr,'(4a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1400:2: 1400 | call die(myname_,'size of and arguments must match') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1455:2: 1455 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1461:2: 1461 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1528:2: 1528 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1530:2: 1530 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1544:2: 1544 | do i=1,n-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1545:2: 1545 | nCycles = nCycles * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1546:2: 1546 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1551:2: 1551 | do i=n+1,NumDims | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1552:2: 1552 | nRepeat = nRepeat * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1553:2: 1553 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1565:2: 1565 | do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1566:2: 1566 | do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1567:2: 1567 | GGrid%data%rAttr(iAxis,index) = AxisData(j,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1568:2: 1568 | index = index+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1569:2: 1569 | end do ! do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1570:2: 1570 | end do ! do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1780:2: 1780 | List_nitem(GGrid%coordinate_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1818:2: 1818 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1824:2: 1824 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1878:2: 1878 | GGrid%data%rAttr(i,n) = PointData(nOffset + i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2033:2: 2033 | List_nitem(GGrid%coordinate_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2071:2: 2071 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2077:2: 2077 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2131:2: 2131 | GGrid%data%rAttr(i,n) = PointData(nOffset + i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2219:2: 2219 | call List_clean(GGrid%coordinate_sort_order,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2220:2: 2220 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2224:2: 2224 | call List_clean(GGrid%weight_list,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2225:2: 2225 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2229:2: 2229 | call List_clean(GGrid%other_list,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2230:2: 2230 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2234:2: 2234 | call List_clean(GGrid%index_list,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2235:2: 2235 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2239:2: 2239 | deallocate(GGrid%descend, stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2240:2: 2240 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2250:2: 2250 | call List_clean(GGrid%coordinate_sort_order) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2254:2: 2254 | call List_clean(GGrid%weight_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2258:2: 2258 | call List_clean(GGrid%other_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2262:2: 2262 | call List_clean(GGrid%index_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2266:2: 2266 | deallocate(GGrid%descend, stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2267:2: 2267 | if(ierr/=0) call die(myname_,'deallocate(GGrid%descend)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3141:2: 3141 | call die(myname_, "GGrid%coordinate_aort_order must be & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3146:2: 3146 | call Sort_(GGrid, GGrid%coordinate_sort_order, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3147:2: 3147 | perm, GGrid%descend) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3149:2: 3149 | call Sort_(GGrid=GGrid, key_list=GGrid%coordinate_sort_order, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3150:2: 3150 | perm=perm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:786:30: 786 | integer :: n, ncoord, norder | 1 Warning: Unused variable 'norder' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_GeneralGridComms.F90 m_GeneralGridComms.F90:178:2: 178 | write(stderr,*) myname_,':: Error. GeneralGrid%coordinate_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:179:2: 179 | status = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:180:2: 180 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:182:2: 182 | call die(myname_,':: Error. GeneralGrid%coordinate_list undefined.',-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:213:2: 213 | call MP_perr_die(myname_,':: call MPI_SEND(size(iGGrid%descend)...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:219:2: 219 | call MP_perr_die(myname_,':: call MPI_SEND(iGGrid%descend...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:277:2: 277 | write(stderr,*) myname_,':: Error. GeneralGrid%index_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:278:2: 278 | status = -2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:279:2: 279 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:281:2: 281 | call die(myname_,':: Error. GeneralGrid%index_list undefined.',-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:291:2: 291 | write(stderr,*) myname_,':: call AttrVect_send(iGGrid%data...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:292:2: 292 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:293:2: 293 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:295:2: 295 | call die(myname_,':: call AttrVect_send(iGGrid%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:445:2: 445 | write(stderr,*) myname_,':: Error. GeneralGrid%coordinate_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:446:2: 446 | status = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:447:2: 447 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:449:2: 449 | call die(myname_,':: Error. GeneralGrid%coordinate_list undefined.',-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:459:2: 459 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:460:2: 460 | write(stderr,*) myname_,':: Error calling ',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:462:2: 462 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:463:2: 463 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:464:2: 464 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:465:2: 465 | call die(myname_,':: call List_recv(oGGrid%coordinate_sort_order...', ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:466:2: 466 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:479:2: 479 | call MP_perr_die(myname_,':: call MPI_RECV(size(oGGrid%descend)...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:484:2: 484 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:485:2: 485 | write(stderr,*) myname_,':: allocate(oGGrid%descend...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:486:2: 486 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:487:2: 487 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:488:2: 488 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:489:2: 489 | call die(myname_,':: allocate(oGGrid%descend... failed.',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:490:2: 490 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:496:2: 496 | call MP_perr_die(myname_,':: call MPI_RECV(oGGrid%descend...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:554:2: 554 | write(stderr,*) myname_,':: Error. GeneralGrid%index_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:555:2: 555 | status = -2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:556:2: 556 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:558:2: 558 | call die(myname_,':: Error. GeneralGrid%index_list undefined.',-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:568:2: 568 | write(stderr,*) myname_,':: call AttrVect_recv(oGGrid%data...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:569:2: 569 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:570:2: 570 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:572:2: 572 | call die(myname_,':: call AttrVect_recv(oGGrid%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:688:2: 688 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:689:2: 689 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:691:2: 691 | call die(myname_,'call AttrVect_Gather(ig%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:910:2: 910 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:911:2: 911 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:913:2: 913 | call die(myname_,'call bcastGeneralGridHeader_(oG...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:926:2: 926 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:927:2: 927 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:929:2: 929 | call die(myname_,'call AttrVect_scatter(iG%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1028:2: 1028 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1029:2: 1029 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1031:2: 1031 | call die(myname_,'bcastGeneralGridHeader_(oG...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1043:2: 1043 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1044:2: 1044 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1046:2: 1046 | call die(myname_,'call AttrVect_scatter(iG%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1137:2: 1137 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1138:2: 1138 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1140:2: 1140 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1151:2: 1151 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1152:2: 1152 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1154:2: 1154 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1498:2: 1498 | write(stderr,*) myname_,':: ERROR--allocate(iGGrid%descend(... failed.',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1503:2: 1503 | oGGrid%descend(i) = iGGrid%descend(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1369:20: 1281 | call MPI_BCAST(HeaderAssoc,6,MP_LOGICAL,root,comm,ierr) | 2 ...... 1369 | call MPI_BCAST(DescendSize, 1, MP_INTEGER, root, comm, ierr) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_GeneralGridComms.F90:476:19: 424 | call MPI_RECV(HeaderAssoc, 6, MP_LOGICAL, source, TagBase, ThisMCTWorld%MCT_comm, MPstatus, ierr) | 2 ...... 476 | call MPI_RECV(DescendSize, 1, MP_type(DescendSize), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_GeneralGridComms.F90:210:19: 156 | call MPI_SEND(HeaderAssoc, 6, MP_LOGICAL, dest, TagBase, ThisMCTWorld%MCT_comm, ierr) | 2 ...... 210 | call MPI_SEND(size(iGGrid%descend), 1, MP_type(size(iGGrid%descend)), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_GeneralGridComms.F90:880:25: 880 | logical :: DescendAssoc | 1 Warning: Unused variable 'descendassoc' declared at (1) [-Wunused-variable] m_GeneralGridComms.F90:881:24: 881 | integer :: DescendSize | 1 Warning: Unused variable 'descendsize' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_SpatialIntegralV.F90 m_SpatialIntegralV.F90:26:15: 26 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:43:2: 43 | SpatialIntegralRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:44:2: 44 | SpatialIntegralRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:47:2: 47 | SpatialAverageRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:48:2: 48 | SpatialAverageRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:51:2: 51 | MaskedSpatialIntegralRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:52:2: 52 | MaskedSpatialIntegralRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:55:2: 55 | MaskedSpatialAverageRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:56:2: 56 | MaskedSpatialAverageRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:59:2: 59 | PairedSpatialIntegralRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:60:2: 60 | PairedSpatialIntegralRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:63:2: 63 | PairedSpatialAverageRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:64:2: 64 | PairedSpatialAverageRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:132:2: 132 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:134:2: 134 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:173:2: 173 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:175:2: 175 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:186:2: 186 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:187:3: 187 | comm, WeightTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:189:2: 189 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:195:2: 195 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:198:2: 198 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:230:2: 230 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:232:2: 232 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:271:2: 271 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:273:2: 273 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:284:2: 284 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:285:3: 285 | comm, WeightTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:287:2: 287 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:293:2: 293 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:296:2: 296 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:380:2: 380 | .TRUE., 'weights', comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:405:2: 405 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:470:2: 470 | .TRUE., 'weights', comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:495:2: 495 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:564:2: 564 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:566:2: 566 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:608:2: 608 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:609:2: 609 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:613:2: 613 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:619:2: 619 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:620:2: 620 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:624:2: 624 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:631:2: 631 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:633:2: 633 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:655:2: 655 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:656:2: 656 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:657:2: 657 | Weights(i) = rMask(i) * SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:658:2: 658 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:659:2: 659 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:660:2: 660 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:661:2: 661 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:662:2: 662 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:663:2: 663 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:665:2: 665 | if(present(iMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:666:2: 666 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:667:2: 667 | Weights(i) = SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:668:2: 668 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:669:2: 669 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:670:2: 670 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:671:2: 671 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:672:2: 672 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:673:2: 673 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:682:2: 682 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:683:2: 683 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:684:2: 684 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:685:2: 685 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:686:2: 686 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:687:2: 687 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:688:2: 688 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:689:2: 689 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:690:2: 690 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:691:2: 691 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:692:2: 692 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:693:2: 693 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:694:2: 694 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:695:2: 695 | write(stderr,'(3a,i8,a,f10.7)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:698:2: 698 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:700:2: 700 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:701:2: 701 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:704:2: 704 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:705:2: 705 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:706:2: 706 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:707:2: 707 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:708:2: 708 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:709:2: 709 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:710:2: 710 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:711:2: 711 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:712:2: 712 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:713:2: 713 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:714:2: 714 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:715:2: 715 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:716:2: 716 | write(stderr,'(3a,i8,a,e10.6)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:719:2: 719 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:720:2: 720 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:721:2: 721 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:722:2: 722 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:724:2: 724 | if(present(iMask)) then ! check iMask entries... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:725:2: 725 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:726:2: 726 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:727:2: 727 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:728:2: 728 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:729:2: 729 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:730:2: 730 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:731:2: 731 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:732:2: 732 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:735:2: 735 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:736:2: 736 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:737:2: 737 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:738:2: 738 | else ! straight assignment of SpatialWeights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:739:2: 739 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:740:2: 740 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:741:2: 741 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:742:2: 742 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:754:2: 754 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:755:5: 755 | comm, WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:757:2: 757 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:763:2: 763 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:764:2: 764 | WeightSumAttr=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:766:2: 766 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:808:2: 808 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:810:2: 810 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:851:2: 851 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:852:2: 852 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:856:2: 856 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:862:2: 862 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:863:2: 863 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:867:2: 867 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:874:2: 874 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:876:2: 876 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:898:2: 898 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:899:2: 899 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:900:2: 900 | Weights(i) = rMask(i) * SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:901:2: 901 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:902:2: 902 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:903:2: 903 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:904:2: 904 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:905:2: 905 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:906:2: 906 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:908:2: 908 | if(present(iMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:909:2: 909 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:910:2: 910 | Weights(i) = SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:911:2: 911 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:912:2: 912 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:913:2: 913 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:914:2: 914 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:915:2: 915 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:916:2: 916 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:925:2: 925 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:926:2: 926 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:927:2: 927 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:928:2: 928 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:929:2: 929 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:930:2: 930 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:931:2: 931 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:932:2: 932 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:933:2: 933 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:934:2: 934 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:935:2: 935 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:936:2: 936 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:937:2: 937 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:938:2: 938 | write(stderr,'(3a,i8,a,f10.7)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:941:2: 941 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:943:2: 943 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:944:2: 944 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:947:2: 947 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:948:2: 948 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:949:2: 949 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:950:2: 950 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:951:2: 951 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:952:2: 952 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:953:2: 953 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:954:2: 954 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:955:2: 955 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:956:2: 956 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:957:2: 957 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:958:2: 958 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:959:2: 959 | write(stderr,'(3a,i8,a,e10.6)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:962:2: 962 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:963:2: 963 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:964:2: 964 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:965:2: 965 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:967:2: 967 | if(present(iMask)) then ! check iMask entries... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:968:2: 968 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:969:2: 969 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:970:2: 970 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:971:2: 971 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:972:2: 972 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:973:2: 973 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:974:2: 974 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:975:2: 975 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:978:2: 978 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:979:2: 979 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:980:2: 980 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:981:2: 981 | else ! straight assignment of SpatialWeights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:982:2: 982 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:983:2: 983 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:984:2: 984 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:985:2: 985 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:997:2: 997 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:998:5: 998 | comm, WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1000:2: 1000 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1006:2: 1006 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1007:2: 1007 | WeightSumAttr=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1009:2: 1009 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1129:2: 1129 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1130:2: 1130 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1134:2: 1134 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1140:2: 1140 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1141:2: 1141 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1145:2: 1145 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1156:2: 1156 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1157:2: 1157 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1158:2: 1158 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1160:2: 1160 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1161:2: 1161 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1162:2: 1162 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1164:2: 1164 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1165:2: 1165 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1166:2: 1166 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1170:2: 1170 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1171:2: 1171 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1172:2: 1172 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1173:2: 1173 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1174:2: 1174 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1175:2: 1175 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1176:2: 1176 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1177:2: 1177 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1178:2: 1178 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1179:2: 1179 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1180:2: 1180 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1181:2: 1181 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1182:2: 1182 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1190:2: 1190 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1191:2: 1191 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1192:2: 1192 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1194:2: 1194 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1195:2: 1195 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1196:2: 1196 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1198:2: 1198 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1199:2: 1199 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1203:2: 1203 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1204:2: 1204 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1205:2: 1205 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1206:2: 1206 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1207:2: 1207 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1208:2: 1208 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1209:2: 1209 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1210:2: 1210 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1211:2: 1211 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1212:2: 1212 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1213:2: 1213 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1243:2: 1243 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1324:2: 1324 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1325:2: 1325 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1329:2: 1329 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1335:2: 1335 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1336:2: 1336 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1340:2: 1340 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1351:2: 1351 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1352:2: 1352 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1353:2: 1353 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1355:2: 1355 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1356:2: 1356 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1357:2: 1357 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1359:2: 1359 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1360:2: 1360 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1361:2: 1361 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1365:2: 1365 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1366:2: 1366 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1367:2: 1367 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1368:2: 1368 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1369:2: 1369 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1370:2: 1370 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1371:2: 1371 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1372:2: 1372 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1373:2: 1373 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1374:2: 1374 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1375:2: 1375 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1376:2: 1376 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1377:2: 1377 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1385:2: 1385 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1386:2: 1386 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1387:2: 1387 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1389:2: 1389 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1390:2: 1390 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1391:2: 1391 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1393:2: 1393 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1394:2: 1394 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1398:2: 1398 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1399:2: 1399 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1400:2: 1400 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1401:2: 1401 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1402:2: 1402 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1403:2: 1403 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1404:2: 1404 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1405:2: 1405 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1406:2: 1406 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1407:2: 1407 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1408:2: 1408 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1438:2: 1438 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1507:2: 1507 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1650:2: 1650 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1818:2: 1818 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1850:40: 1850 | character*8, parameter :: WeightName1='WeightSum1' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:1851:40: 1851 | character*8, parameter :: WeightName2='WeightSum2' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:1888:2: 1888 | / integratedAv1%rAttr(iweight1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1893:2: 1893 | / integratedAv2%rAttr(iweight2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1932:2: 1932 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1964:40: 1964 | character*8, parameter :: WeightName1='WeightSum1' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:1965:40: 1965 | character*8, parameter :: WeightName2='WeightSum2' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:2002:2: 2002 | / integratedAv1%rAttr(iweight1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:2007:2: 2007 | / integratedAv2%rAttr(iweight2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1961:20: 1961 | integer :: i, ierr, iweight1, iweight2 | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1847:20: 1847 | integer :: i, ierr, iweight1, iweight2 | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1679:26: 1679 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable 'length1' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1679:35: 1679 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable 'length2' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1536:26: 1536 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable 'length1' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1536:35: 1536 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable 'length2' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1308:28: 1308 | integer :: i, ierr, length, iweight | 1 Warning: Unused variable 'length' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1309:25: 1309 | logical :: mySumWeights | 1 Warning: Unused variable 'mysumweights' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1113:28: 1113 | integer :: i, ierr, length, iweight | 1 Warning: Unused variable 'length' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1114:25: 1114 | logical :: mySumWeights | 1 Warning: Unused variable 'mysumweights' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:464:20: 464 | integer :: i, ierr, iweight | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:374:20: 374 | integer :: i, ierr, iweight | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:254:25: 254 | integer :: ierr, length | 1 Warning: Unused variable 'length' declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:156:25: 156 | integer :: ierr, length | 1 Warning: Unused variable 'length' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_SpatialIntegral.F90 m_SpatialIntegral.F90:67:15: 67 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:90:2: 90 | SpatialIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:93:2: 93 | SpatialAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:96:2: 96 | MaskedSpatialIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:99:2: 99 | MaskedSpatialAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:102:2: 102 | PairedSpatialIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:105:2: 105 | PairedSpatialAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:108:2: 108 | PairedMaskedIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:111:2: 111 | PairedMaskedAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:251:2: 251 | WeightTag, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:354:2: 354 | .TRUE., comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:357:2: 357 | .TRUE.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:380:2: 380 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:472:2: 472 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:474:2: 474 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:531:2: 531 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:533:2: 533 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:542:2: 542 | write(stderr,'(3a)') myname_,':: ERROR--an INTEGER mask list with', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:551:2: 551 | write(stderr,'(3a)') myname_,':: ERROR--an REAL mask list with', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:587:2: 587 | write(stderr,'(3a,i8)') myname_,':: allocate(iMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:589:2: 589 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:597:2: 597 | call List_get(DummStr, i, iMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:598:2: 598 | call GeneralGrid_exportIAttr(GGrid, String_toChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:599:2: 599 | iMaskTemp, TempMaskLength) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:600:2: 600 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:601:2: 601 | if(TempMaskLength /= length) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:602:2: 602 | write(stderr,'(3a,i8,a,i8)') myname_,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:606:2: 606 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:607:2: 607 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:609:2: 609 | if(i == 1) then ! first pass--examine iMaskTemp(:) only | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:611:2: 611 | if(UseFastMethod) then ! straight copy of iMaskTemp(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:612:2: 612 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:613:2: 613 | iMask(j) = iMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:614:2: 614 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:615:2: 615 | else ! go through the entries of iMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:616:2: 616 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:617:2: 617 | select case(iMaskTemp(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:618:2: 618 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:619:2: 619 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:620:2: 620 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:621:2: 621 | iMask(j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:622:2: 622 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:623:2: 623 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:626:2: 626 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:627:2: 627 | end select ! select case(iMaskTemp(j))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:628:2: 628 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:629:2: 629 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:631:2: 631 | else ! That is, i /= 1 ... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:633:2: 633 | if(UseFastMethod) then ! straight product of iMask(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:635:2: 635 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:636:2: 636 | iMask(j) = iMask(j) * iMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:637:2: 637 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:638:2: 638 | else ! go through the entries of iMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:639:2: 639 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:640:2: 640 | select case(iMaskTemp(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:641:2: 641 | case(0) ! zero out iMask(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:642:2: 642 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:643:2: 643 | case(1) ! do nothing | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:644:2: 644 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:645:2: 645 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:648:2: 648 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:649:2: 649 | end select ! select case(iMaskTemp(j))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:650:2: 650 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:651:2: 651 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:653:2: 653 | endif ! if(i == 1)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:669:2: 669 | write(stderr,'(3a,i8)') myname_,':: allocate(rMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:671:2: 671 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:679:2: 679 | call List_get(DummStr, i, rMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:680:2: 680 | call GeneralGrid_exportRAttr(GGrid, String_toChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:681:2: 681 | rMaskTemp, TempMaskLength) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:682:2: 682 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:683:2: 683 | if(TempMaskLength /= length) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:684:2: 684 | write(stderr,'(3a,i8,a,i8)') myname_,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:688:2: 688 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:689:2: 689 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:691:2: 691 | if(i == 1) then ! first pass--examine rMaskTemp(:) only | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:693:2: 693 | if(UseFastMethod) then ! straight copy of rMaskTemp(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:694:2: 694 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:695:2: 695 | rMask(j) = rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:696:2: 696 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:697:2: 697 | else ! go through the entries of rMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:699:2: 699 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:700:2: 700 | if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:701:2: 701 | rMask(j) = rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:702:2: 702 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:703:2: 703 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:706:2: 706 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:707:2: 707 | endif ! if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:708:2: 708 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:709:2: 709 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:711:2: 711 | else ! That is, i /= 1 ... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:713:2: 713 | if(UseFastMethod) then ! straight product of rMask(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:715:2: 715 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:716:2: 716 | rMask(j) = rMask(j) * rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:717:2: 717 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:718:2: 718 | else ! go through the entries of rMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:720:2: 720 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:721:2: 721 | if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:722:2: 722 | rMask(j) = rMask(j) * rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:723:2: 723 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:724:2: 724 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:727:2: 727 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:728:2: 728 | endif ! if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:729:2: 729 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:730:2: 730 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:732:2: 732 | endif ! if(i == 1)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:747:2: 747 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:749:2: 749 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:751:2: 751 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:752:2: 752 | iMask, rMask, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:753:2: 753 | SumWeights, WeightSumTag, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:754:2: 754 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:755:2: 755 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:756:2: 756 | iMask, rMask, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:757:2: 757 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:758:2: 758 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:760:2: 760 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:762:2: 762 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:764:2: 764 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:765:2: 765 | iMask, rMask, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:766:2: 766 | SumWeights, WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:767:2: 767 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:768:2: 768 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:769:2: 769 | iMask, rMask, UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:770:2: 770 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:772:2: 772 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:776:2: 776 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:778:2: 778 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:780:2: 780 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:781:2: 781 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:782:2: 782 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:783:2: 783 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:784:2: 784 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:785:2: 785 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:786:2: 786 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:787:2: 787 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:788:2: 788 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:789:2: 789 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:790:2: 790 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:791:2: 791 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:793:2: 793 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:795:2: 795 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:797:2: 797 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:798:2: 798 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:799:2: 799 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:800:2: 800 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:801:2: 801 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:802:2: 802 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:803:2: 803 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:804:2: 804 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:805:2: 805 | UseFastMethod=UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:806:2: 806 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:808:2: 808 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:815:2: 815 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:817:2: 817 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:819:2: 819 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:820:2: 820 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:821:2: 821 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:822:2: 822 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:823:2: 823 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:824:2: 824 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:825:2: 825 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:826:2: 826 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:827:2: 827 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:828:2: 828 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:829:2: 829 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:830:2: 830 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:832:2: 832 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:834:2: 834 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:836:2: 836 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:837:2: 837 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:838:2: 838 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:839:2: 839 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:840:2: 840 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:841:2: 841 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:842:2: 842 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:843:2: 843 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:844:2: 844 | UseFastMethod=UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:845:2: 845 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:847:2: 847 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:851:2: 851 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:853:2: 853 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:855:2: 855 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:856:2: 856 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:857:2: 857 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:858:2: 858 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:859:2: 859 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:860:2: 860 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:861:2: 861 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:862:2: 862 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:863:2: 863 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:864:2: 864 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:866:2: 866 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:868:2: 868 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:870:2: 870 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:871:2: 871 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:872:2: 872 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:873:2: 873 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:874:2: 874 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:875:2: 875 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:876:2: 876 | UseFastMethod=UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:877:2: 877 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:879:2: 879 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:894:2: 894 | write(stderr,'(3a,i8)') myname_,':: deallocate(iMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:896:2: 896 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:904:2: 904 | write(stderr,'(3a,i8)') myname_,':: deallocate(rMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:906:2: 906 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:964:4: 964 | comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1028:2: 1028 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1029:2: 1029 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1030:2: 1030 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1031:2: 1031 | rMaskTags, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1032:2: 1032 | .TRUE., WeightSumTag, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1033:2: 1033 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1034:2: 1034 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1035:2: 1035 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1036:2: 1036 | rMaskTags, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1037:2: 1037 | .TRUE., WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1038:2: 1038 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1042:2: 1042 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1043:2: 1043 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1044:2: 1044 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1045:2: 1045 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1046:2: 1046 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1047:2: 1047 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1048:2: 1048 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1050:2: 1050 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1051:2: 1051 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1052:2: 1052 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1053:2: 1053 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1054:2: 1054 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1055:2: 1055 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1056:2: 1056 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1064:2: 1064 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1065:2: 1065 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1066:2: 1066 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1067:2: 1067 | rMaskTags=rMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1068:2: 1068 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1069:2: 1069 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1070:2: 1070 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1071:2: 1071 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1072:2: 1072 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1073:2: 1073 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1074:2: 1074 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1075:2: 1075 | rMaskTags=rMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1076:2: 1076 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1077:2: 1077 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1078:2: 1078 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1079:2: 1079 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1083:2: 1083 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1084:2: 1084 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1085:2: 1085 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1086:2: 1086 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1087:2: 1087 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1088:2: 1088 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1089:2: 1089 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1090:2: 1090 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1091:2: 1091 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1092:2: 1092 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1093:2: 1093 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1094:2: 1094 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1095:2: 1095 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1096:2: 1096 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1127:2: 1127 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1186:2: 1186 | SumWeights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1205:2: 1205 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1284:2: 1284 | inAv2, outAv2, gridweights2, WeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1359:2: 1359 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1397:2: 1397 | inAv2, integratedAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1398:2: 1398 | WeightTag2, .TRUE., comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1431:2: 1431 | / integratedAv1%rAttr(iweight1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1436:2: 1436 | / integratedAv2%rAttr(iweight2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1529:2: 1529 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1606:2: 1606 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1607:2: 1607 | SpatialWeightTag1, iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1608:2: 1608 | rMaskTags1, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1609:2: 1609 | mySumWeights, SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1611:2: 1611 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1612:2: 1612 | SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1613:2: 1613 | iMaskTags=iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1614:2: 1614 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1615:2: 1615 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1616:2: 1616 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1622:2: 1622 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1623:2: 1623 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1624:2: 1624 | rMaskTags=rMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1625:2: 1625 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1626:2: 1626 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1627:2: 1627 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1629:2: 1629 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1630:2: 1630 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1631:2: 1631 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1632:2: 1632 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1633:2: 1633 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1644:2: 1644 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1645:2: 1645 | SpatialWeightTag2, iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1646:2: 1646 | rMaskTags2, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1647:2: 1647 | mySumWeights, SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1649:2: 1649 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1650:2: 1650 | SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1651:2: 1651 | iMaskTags=iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1652:2: 1652 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1653:2: 1653 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1654:2: 1654 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1660:2: 1660 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1661:2: 1661 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1662:2: 1662 | rMaskTags=rMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1663:2: 1663 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1664:2: 1664 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1665:2: 1665 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1667:2: 1667 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1668:2: 1668 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1669:2: 1669 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1670:2: 1670 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1671:2: 1671 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1793:2: 1793 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1867:2: 1867 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1868:2: 1868 | SpatialWeightTag1, iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1869:2: 1869 | rMaskTags1, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1870:2: 1870 | .TRUE., SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1872:2: 1872 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1873:2: 1873 | SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1874:2: 1874 | iMaskTags=iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1875:2: 1875 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1876:2: 1876 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1877:2: 1877 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1883:2: 1883 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1884:2: 1884 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1885:2: 1885 | rMaskTags=rMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1886:2: 1886 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1887:2: 1887 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1888:2: 1888 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1890:2: 1890 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1891:2: 1891 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1892:2: 1892 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1893:2: 1893 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1894:2: 1894 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1905:2: 1905 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1906:2: 1906 | SpatialWeightTag2, iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1907:2: 1907 | rMaskTags2, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1908:2: 1908 | .TRUE., SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1910:2: 1910 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1911:2: 1911 | SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1912:2: 1912 | iMaskTags=iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1913:2: 1913 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1914:2: 1914 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1915:2: 1915 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1921:2: 1921 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1922:2: 1922 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1923:2: 1923 | rMaskTags=rMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1924:2: 1924 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1925:2: 1925 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1926:2: 1926 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1928:2: 1928 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1929:2: 1929 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1930:2: 1930 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1931:2: 1931 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1932:2: 1932 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1392:20: 1392 | integer :: i, ierr, iweight1, iweight2 | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] m_SpatialIntegral.F90:348:20: 348 | integer :: i, ierr, iweight | 1 Warning: Unused variable 'ierr' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_GlobalToLocal.F90 m_GlobalToLocal.F90:159:2: 159 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:160:2: 160 | start(count) = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:161:2: 161 | length(count) = GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:176:2: 176 | start(n) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:178:2: 178 | start(n) = start(n-1) + length(n-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:274:2: 274 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:282:2: 282 | local_index = local_start + (i_g - GSMap%start(n)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:283:2: 283 | found = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:284:2: 284 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:285:2: 285 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:286:2: 286 | local_start = local_start + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:717:17: 717 | end subroutine GlobalSegMapToLocalMatrix_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:669:27: 669 | integer :: i, GlobalIndex, gindex, lindex, lsize | 1 Warning: Unused variable 'globalindex' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:581:47: 581 | integer :: myID, ierr, ngseg, nlseg, n, count | 1 Warning: Unused variable 'count' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:581:40: 581 | integer :: myID, ierr, ngseg, nlseg, n, count | 1 Warning: Unused variable 'n' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:18: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable 'count' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:502:24: 502 | integer :: local_start, local_index | 1 Warning: Unused variable 'local_start' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:41: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable 'n' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:31: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable 'ngseg' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:38: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable 'nlseg' declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:349:18: 349 | integer :: count, ierr, ngseg, nlseg | 1 Warning: Unused variable 'count' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_ConvertMaps.F90 m_ConvertMaps.F90:124:2: 124 | NumProcs,"size(GMap%displs) = ",size(GMap%displs)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:282:2: 282 | NumPEs,' NGSegs = ', NGSegs,'. See MCT API Document for more', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:285:2: 285 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:286:2: 286 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:288:2: 288 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:299:2: 299 | status = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:300:2: 300 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:302:2: 302 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:324:2: 324 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:327:2: 327 | n,'. Number of segments = ',NumSegs(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:328:2: 328 | deallocate(NumSegs, stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:329:2: 329 | if(ierr /= 0) then ! problem cleaning up | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:330:2: 330 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:333:2: 333 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:334:2: 334 | if(present(status)) then ! return with error code | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:335:2: 335 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:336:2: 336 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:337:2: 337 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:338:2: 338 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:339:2: 339 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:382:2: 382 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:384:2: 384 | convertible = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:385:2: 385 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:409:2: 409 | GMap%counts(GSMpe_locs(i)) = GSMlengths(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:413:2: 413 | GMap%displs(0) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:415:2: 415 | GMap%displs(i) = GMap%displs(i-1) + GMap%counts(i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:257:18: 257 | integer :: nlseg, NumActive, NumProcs, NumPEs, NGSegs | 1 Warning: Unused variable 'nlseg' declared at (1) [-Wunused-variable] m_ConvertMaps.F90:257:29: 257 | integer :: nlseg, NumActive, NumProcs, NumPEs, NGSegs | 1 Warning: Unused variable 'numactive' declared at (1) [-Wunused-variable] m_ConvertMaps.F90:257:39: 257 | integer :: nlseg, NumActive, NumProcs, NumPEs, NGSegs | 1 Warning: Unused variable 'numprocs' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_ExchangeMaps.F90 m_ExchangeMaps.F90:192:2: 192 | RemoteRootID, SendTag, ThisMCTWorld%MCT_comm, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:198:2: 198 | RemoteRootID, RecvTag, ThisMCTWorld%MCT_comm, status, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:400:2: 400 | ierr = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:401:2: 401 | write(stderr,*) myname_,":: MCTERROR, Map Type mismatch ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:403:2: 403 | RemoteMapPars(MapTypeIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:404:2: 404 | call die(myname_,'Map Type mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:408:2: 408 | ierr = 3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:409:2: 409 | write(stderr,*) myname_,":: MCTERROR, Grid Size mismatch ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:411:2: 411 | RemoteMapPars(GsizeIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:412:2: 412 | call die(myname_,'Map Grid Size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:416:2: 416 | ierr = 4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:417:2: 417 | write(stderr,*) myname_,":: MCTERROR, Component ID mismatch ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:419:2: 419 | RemoteMapPars(ComponentIDIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:420:2: 420 | call die(myname_,'Component ID mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:438:2: 438 | LocalGSMap%start(1:local_ngseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:440:2: 440 | LocalGSMap%length(1:local_ngseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:442:2: 442 | LocalGSMap%pe_loc(1:local_ngseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:447:2: 447 | ThisMCTWorld) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:455:2: 455 | remote_root, SendTag, ThisMCTWorld%MCT_comm, req, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:461:2: 461 | remote_root, RecvTag, ThisMCTWorld%MCT_comm, status, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:470:2: 470 | length(RemoteMapPars(NumSegIndex)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:471:2: 471 | pe_loc(RemoteMapPars(NumSegIndex)), stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:470:2: 470 | length(RemoteMapPars(NumSegIndex)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:471:2: 471 | pe_loc(RemoteMapPars(NumSegIndex)), stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:504:2: 504 | RemoteCompID, RemoteMapPars(GsizeIndex)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:520:2: 520 | call die(myname_,'deallocate(SendBuf...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:377:24: 377 | integer :: myID, ngseg, remote_root,req | 1 Warning: Unused variable 'ngseg' declared at (1) [-Wunused-variable] m_ExchangeMaps.F90:219:30: 219 | subroutine LoadGlobalMapPars_(GMap, MapPars) | ^ Warning: 'loadglobalmappars_' defined but not used [-Wunused-function] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_Router.F90 m_Router.F90:43:24: 43 | public :: Router ! The class data structure | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:63:25: 63 | integer :: nprocs ! number of procs to talk to | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:89:17: 89 | initp_ ! initialize a Router locally with two GSMaps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:141:27: 141 | integer, intent(in) :: othercomp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:142:27: 142 | integer, intent(in) :: mycomm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:167:14: 167 | integer :: ier | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:235:38: 235 | type(GlobalSegMap), intent(in) :: inGSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:236:38: 236 | type(GlobalSegMap), intent(in) :: inRGSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:237:15: 237 | integer , intent(in) :: mycomm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:241:38: 241 | type(Router), intent(out) :: Rout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:261:11: 261 | integer :: ier,i,j,k,m,n | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:262:11: 262 | integer :: mysize,myPid,othercomp | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:263:11: 263 | integer :: lmaxsize,totallength | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:291:22: 291 | type(GlobalSegMap) :: GSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:292:22: 292 | type(GlobalSegMap) :: RGSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:470:3: 470 | tmppe_list(ThisMCTWorld%nprocspid(othercomp)),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:587:2: 587 | Rout%rreqs(count),Rout%ireqs(count),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:613:2: 613 | if(tmpsegcount(i,j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:614:2: 614 | Rout%num_segs(i)=j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:615:3: 615 | Rout%seg_starts(i,j)=tmpsegstart(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:616:2: 616 | Rout%seg_lengths(i,j)=tmpsegcount(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:617:2: 617 | totallength=totallength+Rout%seg_lengths(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:618:2: 618 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:261:29: 261 | integer :: ier,i,j,k,m,n | 1 Warning: Unused variable 'k' declared at (1) [-Wunused-variable] m_Router.F90:299:32: 299 | integer,save :: t_initialized=0 ! rml timers | 1 Warning: Unused variable 't_initialized' declared at (1) [-Wunused-variable] m_Router.F90:302:25: 302 | integer,save :: t_load ! rml timers | 1 Warning: Unused variable 't_load' declared at (1) [-Wunused-variable] m_Router.F90:300:25: 300 | integer,save :: t_loop ! rml timers | 1 Warning: Unused variable 't_loop' declared at (1) [-Wunused-variable] m_Router.F90:301:26: 301 | integer,save :: t_loop2 ! rml timers | 1 Warning: Unused variable 't_loop2' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_Rearranger.F90 m_Rearranger.F90:38:15: 38 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:171:2: 171 | SendingToMyself = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:177:2: 177 | ReceivingFromMyself = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:183:2: 183 | call die(myname_,"SendRouter is not compatible with RecvRouter") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:217:2: 217 | temp_pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:234:2: 234 | allocate(OutRearranger%LocalPack(2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:236:2: 236 | if(ier/=0) call die(myname_,'allocate(OutRearranger%LocalPack)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:237:2: 237 | OutRearranger%LocalPack = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:239:2: 239 | m=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:240:2: 240 | do nseg = 1,OutRearranger%SendRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:241:2: 241 | src_seg_start = OutRearranger%SendRouter%seg_starts(i,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:242:2: 242 | src_seg_length = OutRearranger%SendRouter%seg_lengths(i,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:243:2: 243 | do len=0,src_seg_length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:244:2: 244 | m=m+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:245:2: 245 | OutRearranger%LocalPack(2,m) = src_seg_start+len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:246:2: 246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:247:2: 247 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:252:2: 252 | procindex = procindex+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:253:2: 253 | temp_seg_starts(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:255:2: 255 | temp_seg_lengths(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:257:2: 257 | temp_pe_list(procindex) = OutRearranger%SendRouter%pe_list(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:258:2: 258 | temp_numsegs(procindex) = OutRearranger%SendRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:259:2: 259 | temp_locsize(procindex) = OutRearranger%SendRouter%locsize(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:260:2: 260 | temp_maxsize = max(temp_locsize(procindex),temp_maxsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:271:2: 271 | OutRearranger%SendRouter%pe_list, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:280:2: 280 | OutRearranger%SendRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:281:2: 281 | OutRearranger%SendRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:280:2: 280 | OutRearranger%SendRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:281:2: 281 | OutRearranger%SendRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:318:2: 318 | temp_pe_list(temp_nprocs),temp_numsegs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:333:2: 333 | if( (SIZE(OutRearranger%LocalPack,2) /= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:335:2: 335 | call die(myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:338:2: 338 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:340:2: 340 | OutRearranger%LocalSize = OutRearranger%RecvRouter%locsize(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:342:2: 342 | m=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:343:2: 343 | do nseg = 1,OutRearranger%RecvRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:344:2: 344 | trg_seg_start = OutRearranger%RecvRouter%seg_starts(i,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:345:2: 345 | trg_seg_length = OutRearranger%RecvRouter%seg_lengths(i,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:346:2: 346 | do len=0,trg_seg_length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:347:2: 347 | m=m+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:348:2: 348 | OutRearranger%LocalPack(1,m) = trg_seg_start+len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:349:2: 349 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:350:2: 350 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:355:2: 355 | procindex = procindex+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:356:2: 356 | temp_seg_starts(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:357:2: 357 | OutRearranger%RecvRouter%seg_starts(i,1:maxsegcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:358:2: 358 | temp_seg_lengths(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:360:2: 360 | temp_pe_list(procindex) = OutRearranger%RecvRouter%pe_list(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:361:2: 361 | temp_numsegs(procindex) = OutRearranger%RecvRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:362:2: 362 | temp_locsize(procindex) = OutRearranger%RecvRouter%locsize(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:363:2: 363 | temp_maxsize = max(temp_locsize(procindex),temp_maxsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:374:2: 374 | OutRearranger%RecvRouter%pe_list, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:383:2: 383 | OutRearranger%RecvRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:384:2: 384 | OutRearranger%RecvRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:383:2: 383 | OutRearranger%RecvRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:384:2: 384 | OutRearranger%RecvRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:463:2: 463 | status = ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:464:2: 464 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:474:2: 474 | status = ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:475:2: 475 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:487:2: 487 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:488:2: 488 | status=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:489:2: 489 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:490:2: 490 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:492:2: 492 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:587:14: 587 | integer :: numi,numr,i,j,k,ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:746:2: 746 | do proc=1,SendRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:749:2: 749 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:751:2: 751 | allocate(ISendBuf(ISendSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:752:2: 752 | if(ier/=0) call die(myname_,'allocate(ISendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:761:2: 761 | do proc=1,SendRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:764:2: 764 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:766:2: 766 | allocate(RSendBuf(RSendSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:767:2: 767 | if(ier/=0) call die(myname_,'allocate(RSendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:782:2: 782 | do proc=1,RecvRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:785:2: 785 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:787:2: 787 | allocate(IRecvBuf(IRecvSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:788:2: 788 | if(ier/=0) call die(myname_,'allocate(IRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:797:2: 797 | do proc=1,RecvRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:800:2: 800 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:802:2: 802 | allocate(RRecvBuf(RRecvSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:803:2: 803 | if(ier/=0) call die(myname_,'allocate(RRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:900:2: 900 | if( (RecvRout%num_segs(proc) > 1) .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:902:2: 902 | call MPI_IRECV(IRecvBuf(IRecvLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:903:2: 903 | RecvRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:904:2: 904 | RecvRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:905:2: 905 | ThisMCTWorld%MCT_comm,recv_ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:907:2: 907 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:909:2: 909 | call MPI_IRECV(TargetAV%iAttr(1,RecvRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:910:2: 910 | RecvRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:914:2: 914 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:916:2: 916 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:927:2: 927 | if( (RecvRout%num_segs(proc) > 1) .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:929:2: 929 | call MPI_IRECV(RRecvBuf(RRecvLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:930:2: 930 | RecvRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:931:2: 931 | RecvRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:932:2: 932 | ThisMCTWorld%MCT_comm,recv_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:934:2: 934 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:936:2: 936 | call MPI_IRECV(TargetAV%rAttr(1,RecvRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:937:2: 937 | RecvRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:938:2: 938 | RecvRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:939:2: 939 | ThisMCTWorld%MCT_comm,recv_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:941:2: 941 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:943:2: 943 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:960:2: 960 | j=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:961:2: 961 | k=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:964:2: 964 | do nseg = 1,SendRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:965:2: 965 | seg_start = SendRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:966:2: 966 | seg_end = seg_start + SendRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:967:2: 967 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:968:2: 968 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:969:2: 969 | ISendBuf(ISendLoc(proc)+j) = SourceAV%iAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:970:2: 970 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:971:2: 971 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:972:2: 972 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:973:2: 973 | RSendBuf(RSendLoc(proc)+k) = SourceAV%rAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:974:2: 974 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:975:2: 975 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:976:2: 976 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:977:2: 977 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:988:2: 988 | if( SendRout%num_segs(proc) > 1 ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:990:2: 990 | call MPI_ISEND(ISendBuf(ISendLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:991:2: 991 | SendRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:992:2: 992 | SendRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:993:2: 993 | ThisMCTWorld%MCT_comm,send_ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:995:2: 995 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:997:2: 997 | call MPI_ISEND(SourceAV%iAttr(1,SendRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:998:2: 998 | SendRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1002:2: 1002 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1004:2: 1004 | if(ier /= 0) call MP_perr_die(myname_,'MPI_ISEND(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1015:2: 1015 | if( SendRout%num_segs(proc) > 1 ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1017:2: 1017 | call MPI_ISEND(RSendBuf(RSendLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1018:2: 1018 | SendRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1019:2: 1019 | SendRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1020:2: 1020 | ThisMCTWorld%MCT_comm,send_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1022:2: 1022 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1024:2: 1024 | call MPI_ISEND(SourceAV%rAttr(1,SendRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1025:2: 1025 | SendRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1026:2: 1026 | SendRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1027:2: 1027 | ThisMCTWorld%MCT_comm,send_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1029:2: 1029 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1031:2: 1031 | if(ier /= 0) call MP_perr_die(myname_,'MPI_ISEND(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1079:2: 1079 | TargetAV%iAttr(IAttrIndex,TrgVectIndex) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1080:2: 1080 | SourceAV%iAttr(IAttrIndex,SrcVectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1083:2: 1083 | TargetAV%rAttr(RAttrIndex,TrgVectIndex) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1084:2: 1084 | SourceAV%rAttr(RAttrIndex,SrcVectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1113:2: 1113 | call MPI_WAITALL(SendRout%nprocs,send_ireqs,send_istatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1114:2: 1114 | if(ier /= 0) call MP_perr_die(myname_,'MPI_WAITALL(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1120:2: 1120 | call MPI_WAITALL(SendRout%nprocs,send_rreqs,send_rstatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1121:2: 1121 | if(ier /= 0) call MP_perr_die(myname_,'MPI_WAITALL(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1141:2: 1141 | call MPI_WAIT(recv_ireqs(proc),recv_istatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1143:2: 1143 | call MPI_WAITANY(RecvRout%nprocs,recv_ireqs,proc,recv_istatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1147:2: 1147 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1151:2: 1151 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1152:2: 1152 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1153:2: 1153 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1154:2: 1154 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1155:2: 1155 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1156:2: 1156 | TargetAV%iAttr(AttrIndex,VectIndex)= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1158:2: 1158 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1159:2: 1159 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1160:2: 1160 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1161:2: 1161 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1163:2: 1163 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1165:2: 1165 | if (( RecvRout%num_segs(proc) > 1 ) .or. (usealltoall)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1169:2: 1169 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1170:2: 1170 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1171:2: 1171 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1172:2: 1172 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1173:2: 1173 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1174:2: 1174 | TargetAV%iAttr(AttrIndex,VectIndex)=IRecvBuf(IRecvLoc(proc)+j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1175:2: 1175 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1176:2: 1176 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1177:2: 1177 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1178:2: 1178 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1180:2: 1180 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1182:2: 1182 | endif ! end of if DoSum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1191:2: 1191 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1193:2: 1193 | call MPI_WAIT(recv_rreqs(proc),recv_rstatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1195:2: 1195 | call MPI_WAITANY(RecvRout%nprocs,recv_rreqs,proc,recv_rstatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1199:2: 1199 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1203:2: 1203 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1204:2: 1204 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1205:2: 1205 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1206:2: 1206 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1207:2: 1207 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1208:2: 1208 | TargetAV%rAttr(AttrIndex,VectIndex) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1210:2: 1210 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1211:2: 1211 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1212:2: 1212 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1213:2: 1213 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1215:2: 1215 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1217:2: 1217 | if (( RecvRout%num_segs(proc) > 1 ) .or. (usealltoall)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1221:2: 1221 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1222:2: 1222 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1223:2: 1223 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1224:2: 1224 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1225:2: 1225 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1226:2: 1226 | TargetAV%rAttr(AttrIndex,VectIndex)=RRecvBuf(RRecvLoc(proc)+k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1227:2: 1227 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1228:2: 1228 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1229:2: 1229 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1230:2: 1230 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1232:2: 1232 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1234:2: 1234 | endif ! end if DoSum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1258:2: 1258 | deallocate(ISendBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1259:2: 1259 | if(ier/=0) call die(myname_,'deallocate(ISendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1266:2: 1266 | deallocate(RSendBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1267:2: 1267 | if(ier/=0) call die(myname_,'deallocate(RSendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1278:2: 1278 | deallocate(IRecvBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1279:2: 1279 | if(ier/=0) call die(myname_,'deallocate(IRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1286:2: 1286 | deallocate(RRecvBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1287:2: 1287 | if(ier/=0) call die(myname_,'deallocate(RRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:929:19: 902 | call MPI_IRECV(IRecvBuf(IRecvLoc(proc)), & | 2 ...... 929 | call MPI_IRECV(RRecvBuf(RRecvLoc(proc)), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Rearranger.F90:1017:19: 990 | call MPI_ISEND(ISendBuf(ISendLoc(proc)), & | 2 ...... 1017 | call MPI_ISEND(RSendBuf(RSendLoc(proc)), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Rearranger.F90:1100:24: 1094 | call MPI_Alltoallv(ISendBuf, ISendCnts, ISdispls, MP_INTEGER, & | 2 ...... 1100 | call MPI_Alltoallv(RSendBuf, RSendCnts, RSdispls, mp_Type_rp, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Rearranger.F90:1101:24: 1095 | IRecvBuf, IRecvCnts, IRdispls, MP_INTEGER, & | 2 ...... 1101 | RRecvBuf, RRecvCnts, RRdispls, mp_Type_rp, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Rearranger.F90:587:24: 587 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] m_Rearranger.F90:148:17: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable 'j' declared at (1) [-Wunused-variable] m_Rearranger.F90:148:19: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable 'k' declared at (1) [-Wunused-variable] m_Rearranger.F90:148:21: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable 'l' declared at (1) [-Wunused-variable] m_Rearranger.F90:148:25: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable 'n' declared at (1) [-Wunused-variable] m_Rearranger.F90:146:30: 146 | integer :: procindex,nprocs,nseg,len,myPid | 1 Warning: Unused variable 'nprocs' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_SparseMatrixDecomp.F90 m_SparseMatrixDecomp.F90:587:2: 587 | call die(myname_,'non-root allocate(starts...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:670:2: 670 | num_elements-size(element_pe_locs)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:675:2: 675 | num_elements-size(elements)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:684:2: 684 | nsegs = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:690:2: 690 | if((elements(i) > elements(i-1) + 1) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:691:2: 691 | (element_pe_locs(i) /= element_pe_locs(i-1))) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:692:2: 692 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:693:2: 693 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:726:2: 726 | if((elements(i) > elements(i-1) + 1) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:727:2: 727 | (element_pe_locs(i) /= element_pe_locs(i-1))) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:730:2: 730 | iseg = iseg + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:731:2: 731 | seg_starts(iseg) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:732:2: 732 | seg_lengths(iseg) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:733:2: 733 | seg_pe_locs(iseg) = element_pe_locs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:735:2: 735 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:738:2: 738 | seg_lengths(iseg) = seg_lengths(iseg) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:740:2: 740 | endif ! If new segment block | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_SparseMatrixComms.F90 m_SparseMatrixComms.F90:45:2: 45 | GM_gather_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:46:2: 46 | GSM_gather_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:157:2: 157 | call MP_perr_die(myname_,"MPI_COMM_RANK() failed",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:179:2: 179 | write(stderr,*) myname_,":: AttrVect_Scatter(GsMat%data) failed--stat=", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:180:2: 180 | ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:181:2: 181 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:182:2: 182 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:184:2: 184 | call die(myname_,"call AttrVect_Scatter(GsMat%data,..",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:199:2: 199 | call MP_perr_die(myname_,"MPI_Bcast(NumRowsColumns...",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_SparseMatrixToMaps.F90 m_SparseMatrixToMaps.F90:37:2: 37 | SparseMatrixToXGlobalSegMap_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:41:2: 41 | SparseMatrixToYGlobalSegMap_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:400:2: 400 | nsegs = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:404:2: 404 | if(indices(i) > indices(i-1) + 1) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:405:2: 405 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:406:2: 406 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:426:2: 426 | nsegs = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:427:2: 427 | starts(nsegs) = indices(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:432:2: 432 | if(i == num_indices) then ! last point | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:433:2: 433 | if(indices(i) > indices(i-1) + 1) then ! new segment with 1 pt. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:435:2: 435 | lengths(nsegs) = indices(i-1) - starts(nsegs) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:436:2: 436 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:437:2: 437 | starts(nsegs) = indices(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:438:2: 438 | lengths(nsegs) = 1 ! (just one point) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:439:2: 439 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:440:2: 440 | lengths(nsegs) = indices(i) - starts(nsegs) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:441:2: 441 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:442:2: 442 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:443:2: 443 | if(indices(i) > indices(i-1) + 1) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:444:2: 444 | lengths(nsegs) = indices(i-1) - starts(nsegs) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:445:2: 445 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:446:2: 446 | starts(nsegs) = indices(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:447:2: 447 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:448:2: 448 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:269:61: 269 | integer, dimension(:), allocatable :: gRow, element_pe_locs | 1 Warning: Unused variable 'element_pe_locs' declared at (1) [-Wunused-variable] m_SparseMatrixToMaps.F90:124:61: 124 | integer, dimension(:), allocatable :: gCol, element_pe_locs | 1 Warning: Unused variable 'element_pe_locs' declared at (1) [-Wunused-variable] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_SparseMatrixPlus.F90 m_SparseMatrixPlus.F90:126:2: 126 | integer :: Tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:299:2: 299 | write(stderr,'(3a,i8,2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:303:2: 303 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:307:2: 307 | write(stderr,'(3a,i8,2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:311:2: 311 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:345:2: 345 | comm, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:348:2: 348 | root, comm, ComponentID) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:362:2: 362 | comm, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:365:2: 365 | root, comm, ComponentID) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:528:2: 528 | root, comm, ComponentID) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:658:2: 658 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:659:2: 659 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:660:2: 660 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:661:2: 661 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:662:2: 662 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:665:2: 665 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:672:2: 672 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:673:2: 673 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:674:2: 674 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:675:2: 675 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:676:2: 676 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:679:2: 679 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:686:2: 686 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:687:2: 687 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:688:2: 688 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:689:2: 689 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:690:2: 690 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:693:2: 693 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:698:2: 698 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:699:2: 699 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:700:2: 700 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:701:2: 701 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:702:2: 702 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:705:2: 705 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:721:2: 721 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:722:2: 722 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_MatAttrVectMul.F90 m_MatAttrVectMul.F90:258:6: 258 | row = sMat%data%iAttr(irow,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:259:6: 259 | col = sMat%data%iAttr(icol,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:260:2: 260 | wgt = sMat%data%rAttr(iwgt,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:265:2: 265 | do m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:267:2: 267 | yAV%rAttr(m,row) = yAV%rAttr(m,row) + wgt * xAV%rAttr(m,col) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:269:4: 269 | end do ! m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:306:2: 306 | xAVindices, yAVindices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:326:2: 326 | contiguous=.false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:358:2: 358 | row = sMat%data%iAttr(irow,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:359:2: 359 | col = sMat%data%iAttr(icol,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:360:2: 360 | wgt = sMat%data%rAttr(iwgt,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:364:4: 364 | do m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:365:2: 365 | yAV%rAttr(outxmin+m,row) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:366:2: 366 | yAV%rAttr(outxmin+m,row) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:367:2: 367 | wgt * xAV%rAttr(inxmin+m,col) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:374:2: 374 | row = sMat%data%iAttr(irow,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:375:2: 375 | col = sMat%data%iAttr(icol,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:376:2: 376 | wgt = sMat%data%rAttr(iwgt,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:380:4: 380 | do m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:381:2: 381 | yAV%rAttr(yAVindices(m),row) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:382:2: 382 | yAV%rAttr(yAVindices(m),row) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:383:2: 383 | wgt * xAV%rAttr(xAVindices(m),col) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:546:2: 546 | Vector=usevector,rList=rList,TrList=TrList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:549:2: 549 | Vector=usevector,rList=rList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:552:2: 552 | Vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:622:2: 622 | String_ToChar(sMatPlus%Strategy),' not supported.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_Merge.F90 m_Merge.F90:70:2: 70 | MergeThreeGGDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:254:2: 254 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:257:2: 257 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:263:2: 263 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:266:2: 266 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:328:2: 328 | call MergeInDataGGSP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:331:2: 331 | call MergeInDataGGSP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:333:2: 333 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:339:2: 339 | call MergeInDataGGSP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:341:2: 341 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:343:2: 343 | call MergeInDataGGSP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:345:2: 345 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:357:2: 357 | call MergeInDataGGSP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:360:2: 360 | call MergeInDataGGSP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:362:2: 362 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:368:2: 368 | call MergeInDataGGSP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:370:2: 370 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:372:2: 372 | call MergeInDataGGSP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:374:2: 374 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:386:2: 386 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:388:2: 388 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:389:2: 389 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:390:2: 390 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:394:2: 394 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:489:2: 489 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:492:2: 492 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:498:2: 498 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:501:2: 501 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:563:2: 563 | call MergeInDataGGDP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:566:2: 566 | call MergeInDataGGDP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:568:2: 568 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:574:2: 574 | call MergeInDataGGDP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:576:2: 576 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:578:2: 578 | call MergeInDataGGDP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:580:2: 580 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:592:2: 592 | call MergeInDataGGDP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:595:2: 595 | call MergeInDataGGDP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:597:2: 597 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:603:2: 603 | call MergeInDataGGDP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:605:2: 605 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:607:2: 607 | call MergeInDataGGDP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:609:2: 609 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:621:2: 621 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:623:2: 623 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:624:2: 624 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:625:2: 625 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:629:2: 629 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:820:2: 820 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:823:2: 823 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:829:2: 829 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:832:2: 832 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:902:2: 902 | call MergeInDataGGSP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:905:2: 905 | call MergeInDataGGSP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:907:2: 907 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:913:2: 913 | call MergeInDataGGSP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:915:2: 915 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:917:2: 917 | call MergeInDataGGSP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:919:2: 919 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:931:2: 931 | call MergeInDataGGSP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:934:2: 934 | call MergeInDataGGSP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:936:2: 936 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:942:2: 942 | call MergeInDataGGSP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:944:2: 944 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:946:2: 946 | call MergeInDataGGSP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:948:2: 948 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:960:2: 960 | call MergeInDataGGSP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:963:2: 963 | call MergeInDataGGSP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:965:2: 965 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:971:2: 971 | call MergeInDataGGSP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:973:2: 973 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:975:2: 975 | call MergeInDataGGSP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:977:2: 977 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:989:2: 989 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:991:2: 991 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:992:2: 992 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:993:2: 993 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:997:2: 997 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1102:2: 1102 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1105:2: 1105 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1111:2: 1111 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1114:2: 1114 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1184:2: 1184 | call MergeInDataGGDP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1187:2: 1187 | call MergeInDataGGDP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1189:2: 1189 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1195:2: 1195 | call MergeInDataGGDP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1197:2: 1197 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1199:2: 1199 | call MergeInDataGGDP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1201:2: 1201 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1213:2: 1213 | call MergeInDataGGDP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1216:2: 1216 | call MergeInDataGGDP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1218:2: 1218 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1224:2: 1224 | call MergeInDataGGDP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1226:2: 1226 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1228:2: 1228 | call MergeInDataGGDP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1230:2: 1230 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1242:2: 1242 | call MergeInDataGGDP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1245:2: 1245 | call MergeInDataGGDP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1247:2: 1247 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1253:2: 1253 | call MergeInDataGGDP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1255:2: 1255 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1257:2: 1257 | call MergeInDataGGDP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1259:2: 1259 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1271:2: 1271 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1273:2: 1273 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1274:2: 1274 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1275:2: 1275 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1279:2: 1279 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1492:2: 1492 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1495:2: 1495 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1502:2: 1502 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1505:2: 1505 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1583:2: 1583 | call MergeInDataGGSP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1586:2: 1586 | call MergeInDataGGSP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1588:2: 1588 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1594:2: 1594 | call MergeInDataGGSP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1596:2: 1596 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1598:2: 1598 | call MergeInDataGGSP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1600:2: 1600 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1612:2: 1612 | call MergeInDataGGSP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1615:2: 1615 | call MergeInDataGGSP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1617:2: 1617 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1623:2: 1623 | call MergeInDataGGSP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1625:2: 1625 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1627:2: 1627 | call MergeInDataGGSP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1629:2: 1629 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1641:2: 1641 | call MergeInDataGGSP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1644:2: 1644 | call MergeInDataGGSP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1646:2: 1646 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1652:2: 1652 | call MergeInDataGGSP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1654:2: 1654 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1656:2: 1656 | call MergeInDataGGSP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1658:2: 1658 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1670:2: 1670 | call MergeInDataGGSP_(inAv4, iMaskTags4, rMaskTags4, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1673:2: 1673 | call MergeInDataGGSP_(inAv4, iMaskTags=iMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1675:2: 1675 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1681:2: 1681 | call MergeInDataGGSP_(inAv4, rMaskTags=rMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1683:2: 1683 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1685:2: 1685 | call MergeInDataGGSP_(inAv4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1687:2: 1687 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1699:2: 1699 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1701:2: 1701 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1702:2: 1702 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1703:2: 1703 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1707:2: 1707 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1823:2: 1823 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1826:2: 1826 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1833:2: 1833 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1836:2: 1836 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1914:2: 1914 | call MergeInDataGGDP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1917:2: 1917 | call MergeInDataGGDP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1919:2: 1919 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1925:2: 1925 | call MergeInDataGGDP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1927:2: 1927 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1929:2: 1929 | call MergeInDataGGDP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1931:2: 1931 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1943:2: 1943 | call MergeInDataGGDP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1946:2: 1946 | call MergeInDataGGDP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1948:2: 1948 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1954:2: 1954 | call MergeInDataGGDP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1956:2: 1956 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1958:2: 1958 | call MergeInDataGGDP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1960:2: 1960 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1972:2: 1972 | call MergeInDataGGDP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1975:2: 1975 | call MergeInDataGGDP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1977:2: 1977 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1983:2: 1983 | call MergeInDataGGDP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1985:2: 1985 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1987:2: 1987 | call MergeInDataGGDP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1989:2: 1989 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2001:2: 2001 | call MergeInDataGGDP_(inAv4, iMaskTags4, rMaskTags4, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2004:2: 2004 | call MergeInDataGGDP_(inAv4, iMaskTags=iMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2006:2: 2006 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2012:2: 2012 | call MergeInDataGGDP_(inAv4, rMaskTags=rMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2014:2: 2014 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2016:2: 2016 | call MergeInDataGGDP_(inAv4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2018:2: 2018 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2030:2: 2030 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2032:2: 2032 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2033:2: 2033 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2034:2: 2034 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2038:2: 2038 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2178:2: 2178 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2181:2: 2181 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2187:2: 2187 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2190:2: 2190 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2237:2: 2237 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2239:2: 2239 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2241:2: 2241 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2256:2: 2256 | call List_get(DummStr, i, iMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2259:2: 2259 | call GeneralGrid_exportIAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2260:2: 2260 | iDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2262:2: 2262 | if(.not.(CheckMasks)) then ! Merely multiply iMask by iDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2263:2: 2263 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2264:2: 2264 | iMask(j) = iMask(j) * iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2265:2: 2265 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2266:2: 2266 | else ! check mask elements and include their effect on iMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2267:2: 2267 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2268:2: 2268 | select case(iDummy(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2269:2: 2269 | case(0) ! zeroes out iMask(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2270:2: 2270 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2271:2: 2271 | case(1) ! leaves iMask(j) untouched | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2272:2: 2272 | case default ! shut down with an error | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2273:2: 2273 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2276:2: 2276 | String_ToChar(DummStr),'(',j,')=',iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2277:2: 2277 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2278:2: 2278 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2279:2: 2279 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2280:2: 2280 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2282:2: 2282 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2296:2: 2296 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2298:2: 2298 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2300:2: 2300 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2315:2: 2315 | call List_get(DummStr, i, rMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2318:2: 2318 | call GeneralGrid_exportRAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2319:2: 2319 | rDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2321:2: 2321 | if(.not.(CheckMasks)) then ! Merely multiply rMask by rDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2322:2: 2322 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2323:2: 2323 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2324:2: 2324 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2325:2: 2325 | else ! check mask elements and include their effect on rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2326:2: 2326 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2327:2: 2327 | if((iDummy(j) >= 0.) .and. (iDummy(j) <= 1.)) then ! in [0,1] | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2328:2: 2328 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2329:2: 2329 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2330:2: 2330 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2333:2: 2333 | String_ToChar(DummStr),'(',j,')=',rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2334:2: 2334 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2335:2: 2335 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2336:2: 2336 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2337:2: 2337 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2339:2: 2339 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2365:2: 2365 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2366:2: 2366 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2367:2: 2367 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2368:2: 2368 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2369:2: 2369 | rMask(i) * iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2370:2: 2370 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2372:2: 2372 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2373:2: 2373 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2374:2: 2374 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2375:2: 2375 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2376:2: 2376 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2377:2: 2377 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2378:2: 2378 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2379:2: 2379 | rMask(i) * iMask(i) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2380:2: 2380 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2381:2: 2381 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2383:2: 2383 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2384:2: 2384 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2385:2: 2385 | endif ! if(RAttrIdentical)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2389:2: 2389 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2390:2: 2390 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2391:2: 2391 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2392:2: 2392 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2393:2: 2393 | rMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2394:2: 2394 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2396:2: 2396 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2397:2: 2397 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2398:2: 2398 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2399:2: 2399 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2400:2: 2400 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2401:2: 2401 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2402:2: 2402 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2403:2: 2403 | rMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2404:2: 2404 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2406:2: 2406 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2407:2: 2407 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2408:2: 2408 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2416:2: 2416 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2417:2: 2417 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2418:2: 2418 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2419:2: 2419 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2420:2: 2420 | iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2421:2: 2421 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2423:2: 2423 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2424:2: 2424 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2425:2: 2425 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2426:2: 2426 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2427:2: 2427 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2428:2: 2428 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2429:2: 2429 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2430:2: 2430 | iMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2431:2: 2431 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2433:2: 2433 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2434:2: 2434 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2435:2: 2435 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2439:2: 2439 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2440:2: 2440 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2441:2: 2441 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2442:2: 2442 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2443:2: 2443 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2445:2: 2445 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2446:2: 2446 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2447:2: 2447 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2448:2: 2448 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2449:2: 2449 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2450:2: 2450 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2451:2: 2451 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2452:2: 2452 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2453:2: 2453 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2455:2: 2455 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2456:2: 2456 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2457:2: 2457 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2469:2: 2469 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2471:2: 2471 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2479:2: 2479 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2481:2: 2481 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2489:2: 2489 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2491:2: 2491 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2593:2: 2593 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2596:2: 2596 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2602:2: 2602 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2605:2: 2605 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2652:2: 2652 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2654:2: 2654 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2656:2: 2656 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2671:2: 2671 | call List_get(DummStr, i, iMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2674:2: 2674 | call GeneralGrid_exportIAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2675:2: 2675 | iDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2677:2: 2677 | if(.not.(CheckMasks)) then ! Merely multiply iMask by iDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2678:2: 2678 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2679:2: 2679 | iMask(j) = iMask(j) * iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2680:2: 2680 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2681:2: 2681 | else ! check mask elements and include their effect on iMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2682:2: 2682 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2683:2: 2683 | select case(iDummy(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2684:2: 2684 | case(0) ! zeroes out iMask(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2685:2: 2685 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2686:2: 2686 | case(1) ! leaves iMask(j) untouched | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2687:2: 2687 | case default ! shut down with an error | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2688:2: 2688 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2691:2: 2691 | String_ToChar(DummStr),'(',j,')=',iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2692:2: 2692 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2693:2: 2693 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2694:2: 2694 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2695:2: 2695 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2697:2: 2697 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2711:2: 2711 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2713:2: 2713 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2715:2: 2715 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2730:2: 2730 | call List_get(DummStr, i, rMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2733:2: 2733 | call GeneralGrid_exportRAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2734:2: 2734 | rDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2736:2: 2736 | if(.not.(CheckMasks)) then ! Merely multiply rMask by rDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2737:2: 2737 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2738:2: 2738 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2739:2: 2739 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2740:2: 2740 | else ! check mask elements and include their effect on rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2741:2: 2741 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2742:2: 2742 | if((iDummy(j) >= 0.) .and. (iDummy(j) <= 1.)) then ! in [0,1] | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2743:2: 2743 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2744:2: 2744 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2745:2: 2745 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2748:2: 2748 | String_ToChar(DummStr),'(',j,')=',rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2749:2: 2749 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2750:2: 2750 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2751:2: 2751 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2752:2: 2752 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2754:2: 2754 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2780:2: 2780 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2781:2: 2781 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2782:2: 2782 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2783:2: 2783 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2784:2: 2784 | rMask(i) * iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2785:2: 2785 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2787:2: 2787 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2788:2: 2788 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2789:2: 2789 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2790:2: 2790 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2791:2: 2791 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2792:2: 2792 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2793:2: 2793 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2794:2: 2794 | rMask(i) * iMask(i) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2795:2: 2795 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2796:2: 2796 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2798:2: 2798 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2799:2: 2799 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2800:2: 2800 | endif ! if(RAttrIdentical)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2804:2: 2804 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2805:2: 2805 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2806:2: 2806 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2807:2: 2807 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2808:2: 2808 | rMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2809:2: 2809 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2811:2: 2811 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2812:2: 2812 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2813:2: 2813 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2814:2: 2814 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2815:2: 2815 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2816:2: 2816 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2817:2: 2817 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2818:2: 2818 | rMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2819:2: 2819 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2821:2: 2821 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2822:2: 2822 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2823:2: 2823 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2831:2: 2831 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2832:2: 2832 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2833:2: 2833 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2834:2: 2834 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2835:2: 2835 | iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2836:2: 2836 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2838:2: 2838 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2839:2: 2839 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2840:2: 2840 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2841:2: 2841 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2842:2: 2842 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2843:2: 2843 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2844:2: 2844 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2845:2: 2845 | iMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2846:2: 2846 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2848:2: 2848 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2849:2: 2849 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2850:2: 2850 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2854:2: 2854 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2855:2: 2855 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2856:2: 2856 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2857:2: 2857 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2858:2: 2858 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2860:2: 2860 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2861:2: 2861 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2862:2: 2862 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2863:2: 2863 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2864:2: 2864 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2865:2: 2865 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2866:2: 2866 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2867:2: 2867 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2868:2: 2868 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2870:2: 2870 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2871:2: 2871 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2872:2: 2872 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2884:2: 2884 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2886:2: 2886 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2894:2: 2894 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2896:2: 2896 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2904:2: 2904 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2906:2: 2906 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2372:22: 2372 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2383:22: 2383 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2396:22: 2396 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2406:22: 2406 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2445:22: 2445 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2455:22: 2455 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] mpif90 -c -I/usr/lib/openmpi/include -DSYSLINUX -DCPR -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -DPIC -fallow-argument-mismatch -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -I/usr/src/RPM/BUILD/mct-2.8.3/mpeu m_Transfer.F90 m_Transfer.F90:61:21: 61 | integer,parameter :: DefaultTag = 600 | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:137:14: 137 | integer :: numi,numr,i,j,k,ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:216:2: 216 | seg_start = Rout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:217:2: 217 | seg_end = seg_start + Rout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:218:2: 218 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:219:2: 219 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:220:2: 220 | Rout%ip1(proc)%pi(j) = aV%iAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:221:2: 221 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:222:2: 222 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:223:2: 223 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:224:2: 224 | Rout%rp1(proc)%pr(k) = aV%rAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:225:2: 225 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:226:2: 226 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:227:2: 227 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:240:2: 240 | call MPI_ISEND(Rout%ip1(proc)%pi(1), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:241:2: 241 | Rout%locsize(proc)*numi,MP_INTEGER,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:242:2: 242 | mytag,ThisMCTWorld%MCT_comm,Rout%ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:244:2: 244 | if(ier /= 0) call MP_perr_die(myname_,'MPI_ISEND(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:257:2: 257 | Rout%locsize(proc)*numr,mp_Type_rp1,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:258:2: 258 | mytag,ThisMCTWorld%MCT_comm,Rout%rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:315:2: 315 | deallocate(Rout%ip1(proc)%pi,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:316:2: 316 | if(ier/=0) call die(myname_,'deallocate(ip1%pi)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:327:2: 327 | deallocate(Rout%rp1(proc)%pr,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:328:2: 328 | if(ier/=0) call die(myname_,'deallocate(rp1%pi)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:371:48: 371 | Type(AttrVect), intent(in) :: aV | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:456:14: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:524:2: 524 | if( Rout%num_segs(proc) > 1 .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:526:2: 526 | call MPI_IRECV(Rout%ip1(proc)%pi(1), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:527:2: 527 | Rout%locsize(proc)*numi,MP_INTEGER,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:528:2: 528 | mytag,ThisMCTWorld%MCT_comm,Rout%ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:530:2: 530 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:532:2: 532 | call MPI_IRECV(aV%iAttr(1,Rout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:533:2: 533 | Rout%locsize(proc)*numi,MP_INTEGER,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:534:2: 534 | mytag,ThisMCTWorld%MCT_comm,Rout%ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:536:2: 536 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:538:2: 538 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:549:2: 549 | if( Rout%num_segs(proc) > 1 .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:551:2: 551 | call MPI_IRECV(Rout%rp1(proc)%pr(1), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:552:2: 552 | Rout%locsize(proc)*numr,mp_Type_rp1,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:553:2: 553 | mytag,ThisMCTWorld%MCT_comm,Rout%rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:555:2: 555 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:557:2: 557 | call MPI_IRECV(aV%rAttr(1,Rout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:558:2: 558 | Rout%locsize(proc)*numr,mp_Type_rp1,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:559:2: 559 | mytag,ThisMCTWorld%MCT_comm,Rout%rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:561:2: 561 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:563:2: 563 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:649:2: 649 | k=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:651:2: 651 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:653:2: 653 | do nseg = 1,Rout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:654:2: 654 | seg_start = Rout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:655:2: 655 | seg_end = seg_start + Rout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:656:2: 656 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:657:2: 657 | do AttrIndex = 1,Rout%numiatt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:658:2: 658 | aV%iAttr(AttrIndex,VectIndex)= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:659:2: 659 | aV%iAttr(AttrIndex,VectIndex)+Rout%ip1(proc)%pi(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:660:2: 660 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:661:2: 661 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:662:2: 662 | do AttrIndex = 1,Rout%numratt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:663:2: 663 | aV%rAttr(AttrIndex,VectIndex)= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:664:2: 664 | aV%rAttr(AttrIndex,VectIndex)+Rout%rp1(proc)%pr(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:665:2: 665 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:666:2: 666 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:667:2: 667 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:668:2: 668 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:669:2: 669 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:671:2: 671 | do nseg = 1,Rout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:672:2: 672 | seg_start = Rout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:673:2: 673 | seg_end = seg_start + Rout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:674:2: 674 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:675:2: 675 | do AttrIndex = 1,Rout%numiatt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:676:2: 676 | aV%iAttr(AttrIndex,VectIndex)=Rout%ip1(proc)%pi(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:677:2: 677 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:678:2: 678 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:679:2: 679 | do AttrIndex = 1,Rout%numratt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:680:2: 680 | aV%rAttr(AttrIndex,VectIndex)=Rout%rp1(proc)%pr(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:681:2: 681 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:682:2: 682 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:683:2: 683 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:684:2: 684 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:738:2: 738 | deallocate(Rout%ip1(proc)%pi,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:739:2: 739 | if(ier/=0) call die(myname_,'deallocate(Rout%ip1%pi)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:748:2: 748 | deallocate(Rout%rp1(proc)%pr,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:749:2: 749 | if(ier/=0) call die(myname_,'deallocate(Rout%rp1%pr)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:551:19: 526 | call MPI_IRECV(Rout%ip1(proc)%pi(1), & | 2 ...... 551 | call MPI_IRECV(Rout%rp1(proc)%pr(1), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Transfer.F90:256:22: 240 | call MPI_ISEND(Rout%ip1(proc)%pi(1), & | 2 ...... 256 | call MPI_ISEND(Rout%rp1(proc)%pr(1), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Transfer.F90:456:24: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] m_Transfer.F90:456:26: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable 'j' declared at (1) [-Wunused-variable] m_Transfer.F90:456:28: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable 'k' declared at (1) [-Wunused-variable] m_Transfer.F90:459:34: 459 | integer :: proc,numprocs,nseg,mytag | 1 Warning: Unused variable 'nseg' declared at (1) [-Wunused-variable] m_Transfer.F90:459:29: 459 | integer :: proc,numprocs,nseg,mytag | 1 Warning: Unused variable 'numprocs' declared at (1) [-Wunused-variable] m_Transfer.F90:458:33: 458 | integer :: seg_start,seg_end | 1 Warning: Unused variable 'seg_end' declared at (1) [-Wunused-variable] m_Transfer.F90:458:25: 458 | integer :: seg_start,seg_end | 1 Warning: Unused variable 'seg_start' declared at (1) [-Wunused-variable] m_Transfer.F90:137:24: 137 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] rm -f libmct.a ar cq libmct.a m_MCTWorld.o m_AttrVect.o m_GlobalMap.o m_GlobalSegMap.o m_GlobalSegMapComms.o m_Accumulator.o m_SparseMatrix.o m_Navigator.o m_AttrVectComms.o m_AttrVectReduce.o m_AccumulatorComms.o m_GeneralGrid.o m_GeneralGridComms.o m_SpatialIntegral.o m_SpatialIntegralV.o m_MatAttrVectMul.o m_Merge.o m_GlobalToLocal.o m_ExchangeMaps.o m_ConvertMaps.o m_SparseMatrixDecomp.o m_SparseMatrixToMaps.o m_SparseMatrixComms.o m_SparseMatrixPlus.o m_Router.o m_Rearranger.o m_Transfer.o make[1]: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3/mct' make: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3' + exit 0 Executing(%install): /bin/sh -e /usr/src/tmp/rpm-tmp.12812 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + /bin/chmod -Rf u+rwX -- /usr/src/tmp/mct-buildroot + : + /bin/rm -rf -- /usr/src/tmp/mct-buildroot + PATH=/usr/libexec/rpm-build:/usr/src/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/games + cd mct-2.8.3 + source /usr/lib/openmpi/bin/mpivars.sh ++ echo /usr/libexec/rpm-build:/usr/src/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/games ++ grep -q /usr/lib/openmpi/bin ++ PATH=/usr/lib/openmpi/bin:/usr/libexec/rpm-build:/usr/src/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/games ++ export PATH ++ echo ++ grep -q /usr/lib/openmpi/lib ++ LD_LIBRARY_PATH=/usr/lib/openmpi/lib ++ export LD_LIBRARY_PATH ++ echo ++ grep -q /usr/lib/openmpi/man ++ MANPATH=/usr/lib/openmpi/man: ++ export MANPATH + export 'OMPI_LDFLAGS=-Wl,--as-needed,-rpath,/usr/lib/openmpi/lib -L/usr/lib/openmpi/lib' + OMPI_LDFLAGS='-Wl,--as-needed,-rpath,/usr/lib/openmpi/lib -L/usr/lib/openmpi/lib' + /usr/bin/make 'INSTALL=/usr/libexec/rpm-build/install -p' prefix=/usr/src/tmp/mct-buildroot/usr exec_prefix=/usr/src/tmp/mct-buildroot/usr bindir=/usr/src/tmp/mct-buildroot/usr/bin sbindir=/usr/src/tmp/mct-buildroot/usr/sbin sysconfdir=/usr/src/tmp/mct-buildroot/etc datadir=/usr/src/tmp/mct-buildroot/usr/share includedir=/usr/src/tmp/mct-buildroot/usr/include libdir=/usr/src/tmp/mct-buildroot/usr/lib libexecdir=/usr/src/tmp/mct-buildroot/usr/lib localstatedir=/usr/src/tmp/mct-buildroot/var/lib runstatedir=/usr/src/tmp/mct-buildroot/var/run sharedstatedir=/usr/src/tmp/mct-buildroot/var/lib mandir=/usr/src/tmp/mct-buildroot/usr/share/man infodir=/usr/src/tmp/mct-buildroot/usr/share/info install make: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3' make[1]: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3/mpeu' make[1]: Nothing to be done for 'all'. make[1]: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3/mpeu' make[1]: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3/mct' make[1]: Nothing to be done for 'all'. make[1]: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3/mct' make[1]: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3/mpeu' /usr/src/RPM/BUILD/mct-2.8.3/mkinstalldirs /usr/src/tmp/mct-buildroot/usr/lib /usr/src/tmp/mct-buildroot/usr/include mkdir -p -- /usr/src/tmp/mct-buildroot/usr/lib /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p libmpeu.a -m 644 /usr/src/tmp/mct-buildroot/usr/lib /usr/libexec/rpm-build/install -p m_chars.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_die.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_dropdead.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_fccomms.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_filename.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_fileresolv.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_flow.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_indexbin_char.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_indexbin_integer.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_indexbin_logical.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_inpak90.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_ioutil.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_list.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_mall.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_mergesorts.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_mpif.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_mpif90.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_mpout.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_permuter.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_rankmerge.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_realkinds.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_sortingtools.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_stdio.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_string.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_strtemplate.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_traceback.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_zeit.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include make[1]: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3/mpeu' make[1]: Entering directory '/usr/src/RPM/BUILD/mct-2.8.3/mct' /usr/src/RPM/BUILD/mct-2.8.3/mkinstalldirs /usr/src/tmp/mct-buildroot/usr/lib /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p libmct.a -m 644 /usr/src/tmp/mct-buildroot/usr/lib /usr/libexec/rpm-build/install -p m_accumulator.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_accumulatorcomms.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_attrvect.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_attrvectcomms.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_attrvectreduce.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_convertmaps.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_exchangemaps.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_generalgrid.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_generalgridcomms.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_globalmap.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_globalsegmap.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_globalsegmapcomms.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_globaltolocal.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_matattrvectmul.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_mctworld.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_merge.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_navigator.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_rearranger.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_router.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_sparsematrix.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_sparsematrixcomms.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_sparsematrixdecomp.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_sparsematrixplus.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_sparsematrixtomaps.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_spatialintegral.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_spatialintegralv.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include /usr/libexec/rpm-build/install -p m_transfer.mod -m 644 /usr/src/tmp/mct-buildroot/usr/include make[1]: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3/mct' make: Leaving directory '/usr/src/RPM/BUILD/mct-2.8.3' + install -d /usr/src/tmp/mct-buildroot/usr/bin + install -d /usr/src/tmp/mct-buildroot/usr/share/mct/data + install -p -m644 data/grid.320x384.da data/kmt_full_40.da data/popx1_to_t42_c_mat.asc data/t42_to_popx1_c_mat.asc /usr/src/tmp/mct-buildroot/usr/share/mct/data + pushd /usr/src/tmp/mct-buildroot/usr/lib ~/tmp/mct-buildroot/usr/lib ~/RPM/BUILD/mct-2.8.3 + for i in libmpeu libmct + mpif90 -shared -Wl,--whole-archive libmpeu.a -Wl,--no-whole-archive -Wl,-rpath,/usr/lib/openmpi/lib -o libmpeu.so.0 -Wl,-soname,libmpeu.so.0 -L/usr/src/tmp/mct-buildroot/usr/lib -Wl,-z,defs ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_inpak90.F90:362:68: warning: type of 'mpi_bcast' does not match original declaration [-Wlto-type-mismatch] 362 | call MPI_Bcast(i90_now%buffer,NBUF_MAX,MP_CHARACTER,root,comm,ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_String.F90:457:47: note: type mismatch in parameter 7 457 | call MPI_bcast(ln,1,MP_INTEGER,root,comm,ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_String.F90:457:47: note: type 'void' should match type 'int' ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_String.F90:457:47: note: 'mpi_bcast' was previously declared here ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_String.F90:457:47: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:180:37: warning: type of 'mpi_gather' does not match original declaration [-Wlto-type-mismatch] 180 | root, comm, ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:322:38: note: 'mpi_gather' was previously declared here 322 | root, comm, ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:322:38: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:464:38: warning: type of 'mpi_gatherv' does not match original declaration [-Wlto-type-mismatch] 464 | root, comm, ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:607:38: note: 'mpi_gatherv' was previously declared here 607 | root, comm, ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:607:38: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:429:38: warning: type of 'mpi_irecv' does not match original declaration [-Wlto-type-mismatch] 429 | ier ) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:572:38: note: 'mpi_irecv' was previously declared here 572 | ier ) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:572:38: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:452:38: warning: type of 'mpi_rsend' does not match original declaration [-Wlto-type-mismatch] 452 | comm, ier ) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:595:38: note: 'mpi_rsend' was previously declared here 595 | comm, ier ) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:595:38: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:593:39: warning: type of 'mpi_recv' does not match original declaration [-Wlto-type-mismatch] 593 | status, ier ) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_List.F90:1928:30: note: 'mpi_recv' was previously declared here 1928 | MPstatus, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_List.F90:1928:30: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_FcComms.F90:573:73: warning: type of 'mpi_send' does not match original declaration [-Wlto-type-mismatch] 573 | call mpi_send ( signal, 1, recvtype, p, mtag, comm, ier ) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_List.F90:1831:69: note: 'mpi_send' was previously declared here 1831 | call MPI_SEND(length, 1, MP_type(length), dest, TagBase, comm, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mpeu/m_List.F90:1831:69: note: code may be misoptimized unless '-fno-strict-aliasing' is used + ln -s libmpeu.so.0 libmpeu.so + LIB=-lmpeu + for i in libmpeu libmct + mpif90 -shared -Wl,--whole-archive libmct.a -Wl,--no-whole-archive -Wl,-rpath,/usr/lib/openmpi/lib -o libmct.so.0 -Wl,-soname,libmct.so.0 -L/usr/src/tmp/mct-buildroot/usr/lib -lmpeu -Wl,-z,defs ../../../../RPM/BUILD/mct-2.8.3/mct/m_SparseMatrix.F90:2055:43: warning: type of 'mpi_allreduce' does not match original declaration [-Wlto-type-mismatch] 2055 | MP_SUM, comm, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_SparseMatrix.F90:1971:43: warning: type of 'mpi_allreduce' does not match original declaration [-Wlto-type-mismatch] 1971 | MP_SUM, comm, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_AttrVectReduce.F90:521:37: warning: type of 'mpi_allreduce' does not match original declaration [-Wlto-type-mismatch] 521 | comm, ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_SparseMatrix.F90:2354:31: note: 'mpi_allreduce' was previously declared here 2354 | comm, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_SparseMatrix.F90:2354:31: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mct/m_AttrVectComms.F90:320:31: warning: type of 'mpi_recv' does not match original declaration [-Wlto-type-mismatch] 320 | MPstatus, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_GlobalSegMapComms.F90:347:63: note: 'mpi_recv' was previously declared here 347 | TagBase, ThisMCTWorld%MCT_comm, MPstatus, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_GlobalSegMapComms.F90:347:63: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mct/m_AttrVectComms.F90:163:68: warning: type of 'mpi_send' does not match original declaration [-Wlto-type-mismatch] 163 | call MPI_SEND(ListAssoc, 2, MP_LOGICAL, dest, TagBase, comm, ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_MCTWorld.F90:263:68: note: 'mpi_send' was previously declared here 263 | call MPI_SEND(mysize,1,MP_INTEGER,0,myids(i),globalcomm,ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_MCTWorld.F90:263:68: note: code may be misoptimized unless '-fno-strict-aliasing' is used ../../../../RPM/BUILD/mct-2.8.3/mct/m_GeneralGridComms.F90:1281:57: warning: type of 'mpi_bcast' does not match original declaration [-Wlto-type-mismatch] 1281 | call MPI_BCAST(HeaderAssoc,6,MP_LOGICAL,root,comm,ierr) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_MCTWorld.F90:538:77: note: 'mpi_bcast' was previously declared here 538 | call MPI_BCAST(ThisMCTWorld%nprocspid, ncomps, MP_INTEGER, 0, MCTcomm, ier) | ^ ../../../../RPM/BUILD/mct-2.8.3/mct/m_MCTWorld.F90:538:77: note: code may be misoptimized unless '-fno-strict-aliasing' is used + ln -s libmct.so.0 libmct.so + LIB=-lmpeu + popd ~/RPM/BUILD/mct-2.8.3 + rm -fv /usr/src/tmp/mct-buildroot/usr/lib/libmct.a /usr/src/tmp/mct-buildroot/usr/lib/libmpeu.a removed '/usr/src/tmp/mct-buildroot/usr/lib/libmct.a' removed '/usr/src/tmp/mct-buildroot/usr/lib/libmpeu.a' + /usr/lib/rpm/brp-alt Cleaning files in /usr/src/tmp/mct-buildroot (auto) mode of './usr/lib/libmct.so.0' changed from 0755 (rwxr-xr-x) to 0644 (rw-r--r--) mode of './usr/lib/libmpeu.so.0' changed from 0755 (rwxr-xr-x) to 0644 (rw-r--r--) Verifying and fixing files in /usr/src/tmp/mct-buildroot (binconfig,pkgconfig,libtool,desktop,gnuconfig) Checking contents of files in /usr/src/tmp/mct-buildroot/ (default) Compressing files in /usr/src/tmp/mct-buildroot (auto) Adjusting library links in /usr/src/tmp/mct-buildroot ./usr/lib: (from :0) libmpeu.so.0 -> libmpeu.so.0 libmct.so.0 -> libmct.so.0 Verifying ELF objects in /usr/src/tmp/mct-buildroot (arch=normal,fhs=normal,lfs=relaxed,lint=relaxed,rpath=normal,stack=normal,textrel=normal,unresolved=normal) verify-elf: WARNING: ./usr/lib/libmct.so.0: RPATH entry found: /usr/lib/openmpi/lib verify-elf: WARNING: ./usr/lib/libmpeu.so.0: RPATH entry found: /usr/lib/openmpi/lib Processing files: libmct-2.8.3-alt4 Executing(%doc): /bin/sh -e /usr/src/tmp/rpm-tmp.2674 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd mct-2.8.3 + DOCDIR=/usr/src/tmp/mct-buildroot/usr/share/doc/libmct-2.8.3 + export DOCDIR + rm -rf /usr/src/tmp/mct-buildroot/usr/share/doc/libmct-2.8.3 + /bin/mkdir -p /usr/src/tmp/mct-buildroot/usr/share/doc/libmct-2.8.3 + cp -prL COPYRIGHT /usr/src/tmp/mct-buildroot/usr/share/doc/libmct-2.8.3 + chmod -R go-w /usr/src/tmp/mct-buildroot/usr/share/doc/libmct-2.8.3 + chmod -R a+rX /usr/src/tmp/mct-buildroot/usr/share/doc/libmct-2.8.3 + exit 0 Finding Provides (using /usr/lib/rpm/find-provides) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.lX7oHA find-provides: running scripts (alternatives,debuginfo,lib,pam,perl,pkgconfig,python,python3,shell) lib.prov: /usr/src/tmp/mct-buildroot/usr/lib/libmct.so.0: 331 symbols, 19 bpp lib.prov: /usr/src/tmp/mct-buildroot/usr/lib/libmpeu.so.0: 262 symbols, 19 bpp Finding Requires (using /usr/lib/rpm/find-requires) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.8LkeGv find-requires: running scripts (cpp,debuginfo,files,lib,pam,perl,pkgconfig,pkgconfiglib,python,python3,rpmlib,shebang,shell,static,symlinks,systemd-services) lib.req: WARNING: /usr/src/tmp/mct-buildroot/usr/lib/libmct.so.0: overlinked libraries: /lib/libgcc_s.so.1 lib.req: WARNING: /usr/src/tmp/mct-buildroot/usr/lib/libmpeu.so.0: overlinked libraries: /lib/libgcc_s.so.1 Provides: libmct.so.0 = set:md6r1RAZk4xZ38ho21fbUBLAu7tT3o8eZzb9n2cGwN3ATk7t9yA0VzGztNfUeZA6AyoR6lZLmTZ02ydsCe65KGZijhZC0NZxJfApCX2h0PjQpyxJH7kbZnaxlG3dN6TZivfdqb6jfUDZrMQKLnwchw9OHsKAIexeeQsBCJPATgZ2hP6lbwltVxKwRo8W80z7wyiu5us6oQntjI9JPFZobLNRjfdo3BSsIHU9okui9FHQyvwYImrSw2yFrUtWJr97oD0ijbDqBMFX8cPuiWsbdXeGhHDwW5pliFlkDnjA1isUrFMqbgES7bu3VxgCA20fuBHvno5sVQbCdLrmA2wJqZtlT2CX0ywwhFLPdWE2lySWpdO6eybV2v3WHcVr1M8MjCikZin5ohTMSkBRfG6doGx76YNmCXqyKyR3F1yb0rNTiSOhvaFRn01je4fmbMYG6HBOZfCCNzTRoHZ1wmhS9WZ02mdHM3ZteGhXbSPpxWXdKFPfo6tUN4cKSZ6dszfNX6Zbgtp4SuAZbOg7CGc5kAsZdmlNxSu0Dtk18uLrojDqyqeqhB7iXNfiFxQ0YH2SpgZmZ44FndIa0ZuNpPPAZhq9cZk2wBQHImacRaloBfooJQFfJHEbIKtelO2bdxR6E8cmuB9sXYn326iKExyHh4M9pWaRl0O3aIyM0OG, libmpeu.so.0 = set:mdtcdod9FPZ4ZKHTHzW5wcLM70135zxS6ME1CRwtPj8Zbc1RLorz6HngAJuNvaYwcQMdhbK1Z21IU27m4BPZdW8IgAnWj2J4lNhy7PopTRqcD63uHWR8Goo3hH49L60q1YocuWT0tNj2qdFO878lVJ3j9RVGQX9A9sZqw6E56ob15XayNdgzJnu00wv4twZEQRktYIMffzX22yXYnFP1fnD9vxNGdUHaLkZ2n8j2g7i34Viwr3jA5Zf2wQAdGuCGHld8sumszXqMrE6xkVE8OzdcwDdXPSuVOpFlombsJg8e4UtQrC0qPD5ZIrp2rZiunNqh6fe4Qb3m18ZHOWZ1MZiwu0g05he47f5akUH9kY1GDIZLIOA097IiGrgVXa8KBTof6viozIXa9d30iGEPcldVMLosEORXs9D2oGWZ0c94o0Z4KqOAX46LrPzAidfCfnbhYaSJaxSgUgBYzjOjVZK4Lk7pvd8Hl8rjq3LjTE51ET2AjpzZ3eAe3QZ5Z6ZzDu6iIiMSBiR938phKPaehIRYX4sQffI11jZsnUgJ8KR Requires: /usr/lib/openmpi/lib/libmpi_mpifh.so.20, libc.so.6(GLIBC_2.0), libc.so.6(GLIBC_2.1.3), libc.so.6(GLIBC_2.4), libgcc_s.so.1, libgfortran.so.5 >= set:ojzG28vhZwPZyMTJ2O7JyjI9HcFjVaCLbfpllCnJDABejQ3bGcZ31ZezhTeHa2UlEEd1QkejvD1pQgELpcpC7SCqEyZz, libgfortran.so.5(GFORTRAN_10), libgfortran.so.5(GFORTRAN_8), libm.so.6(GLIBC_2.1), libm.so.6(GLIBC_2.29), rtld(GNU_HASH) Requires(rpmlib): rpmlib(SetVersions) Finding debuginfo files (using /usr/lib/rpm/find-debuginfo-files) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.eWKnIb Creating libmct-debuginfo package Processing files: libmct-devel-2.8.3-alt4 Finding Provides (using /usr/lib/rpm/find-provides) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.HeHjoz find-provides: running scripts (alternatives,debuginfo,lib,pam,perl,pkgconfig,python,python3,shell) Finding Requires (using /usr/lib/rpm/find-requires) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.cFO5Da find-requires: running scripts (cpp,debuginfo,files,lib,pam,perl,pkgconfig,pkgconfiglib,python,python3,rpmlib,shebang,shell,static,symlinks,systemd-services) Requires: libmct = 2.8.3-alt4, openmpi-devel, /usr/lib/libmct.so.0, /usr/lib/libmpeu.so.0 Finding debuginfo files (using /usr/lib/rpm/find-debuginfo-files) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.8V3Bz4 Processing files: libmct-debuginfo-2.8.3-alt4 Finding Provides (using /usr/lib/rpm/find-provides) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.qYfV8N find-provides: running scripts (debuginfo) Finding Requires (using /usr/lib/rpm/find-requires) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.ViB20W find-requires: running scripts (debuginfo) Provides: debug(libmct.so.0), debug(libmpeu.so.0) Requires: libmct = 2.8.3-alt4, /usr/lib/debug/usr/lib/openmpi/lib/libmpi_mpifh.so.20.debug, debug(libc.so.6), debug(libgcc_s.so.1), debug(libgfortran.so.5), debug(libm.so.6) Adding to libmct-devel a strict dependency on libmct Adding to libmct-debuginfo a strict dependency on libmct Removing 2 extra deps from libmct-devel due to dependency on libmct Wrote: /usr/src/RPM/RPMS/i586/libmct-2.8.3-alt4.i586.rpm (w2T16.xzdio) Wrote: /usr/src/RPM/RPMS/i586/libmct-devel-2.8.3-alt4.i586.rpm (w2.lzdio) Wrote: /usr/src/RPM/RPMS/i586/libmct-debuginfo-2.8.3-alt4.i586.rpm (w2.lzdio) 16.82user 3.26system 0:19.77elapsed 101%CPU (0avgtext+0avgdata 71120maxresident)k 0inputs+0outputs (0major+1035944minor)pagefaults 0swaps 6.05user 3.39system 1:23.63elapsed 11%CPU (0avgtext+0avgdata 124508maxresident)k 0inputs+0outputs (0major+287663minor)pagefaults 0swaps --- libmct-2.8.3-alt4.i586.rpm.repo 2021-11-09 08:30:43.000000000 +0000 +++ libmct-2.8.3-alt4.i586.rpm.hasher 2023-09-23 08:01:14.193357431 +0000 @@ -14,3 +14,4 @@ Requires: libc.so.6(GLIBC_2.4) -Requires: libgfortran.so.5 >= set:ojzG28vhZwPZyMTJ2O7JyjI9HcFjVaCLbfpllCnJDABejQ3bGcZ31ZezhTeHa2UlEEd1QkejvD1pQgELTrihobP3rjdkNZx +Requires: libgcc_s.so.1 +Requires: libgfortran.so.5 >= set:ojzG28vhZwPZyMTJ2O7JyjI9HcFjVaCLbfpllCnJDABejQ3bGcZ31ZezhTeHa2UlEEd1QkejvD1pQgELpcpC7SCqEyZz Requires: rpmlib(SetVersions) @@ -25,4 +26,4 @@ Provides: libmct = 2.8.3-alt4:sisyphus+289244.100.1.1 -File: /usr/lib/libmct.so.0 100644 root:root 724cabe93496c68afb2dec01d84016ca -File: /usr/lib/libmpeu.so.0 100644 root:root 15458588ac75dfc69aca4714e8ac5399 +File: /usr/lib/libmct.so.0 100644 root:root a72be10443e076ed2458de4a557ed72c +File: /usr/lib/libmpeu.so.0 100644 root:root f5b5af0a3201a36477f6754c318e2fa1 File: /usr/share/doc/libmct-2.8.3 40755 root:root @@ -35,2 +36,2 @@ File: /usr/share/mct/data/t42_to_popx1_c_mat.asc 100644 root:root 1bdf5dc1c8c4afe7728cf5019a7d0fe2 -RPMIdentity: 9875fddb5927797aecbb8273874efcdb0fc5cf12fc6c0d81abc21a5a68ad068fd1f9e22c2df8afe84229097e658698699a2b9f70ff59740e3cbd0ea289d8d770 +RPMIdentity: cb03db45beafb5b1c1be9abc0c1c8c504823e01eec3a0a2dc6d01ecb0b7864369ab29f78258aa31465647c27ba89ce6e35142683b584ca798f157a11dba336ce --- libmct-debuginfo-2.8.3-alt4.i586.rpm.repo 2021-11-09 08:30:42.000000000 +0000 +++ libmct-debuginfo-2.8.3-alt4.i586.rpm.hasher 2023-09-23 08:01:14.249358590 +0000 @@ -1,7 +1,7 @@ -/usr/lib/debug/.build-id/02 40755 root:root -/usr/lib/debug/.build-id/02/2a3e5c92744dd5bf61fc2c0869b41a3d2d4a85 120777 root:root ../../../libmct.so.0 -/usr/lib/debug/.build-id/02/2a3e5c92744dd5bf61fc2c0869b41a3d2d4a85.debug 120777 root:root ../../usr/lib/libmct.so.0.debug -/usr/lib/debug/.build-id/f7 40755 root:root -/usr/lib/debug/.build-id/f7/3b70f8cf21632d6e0fa95c0b0e73a41a124372 120777 root:root ../../../libmpeu.so.0 -/usr/lib/debug/.build-id/f7/3b70f8cf21632d6e0fa95c0b0e73a41a124372.debug 120777 root:root ../../usr/lib/libmpeu.so.0.debug +/usr/lib/debug/.build-id/58 40755 root:root +/usr/lib/debug/.build-id/58/bd9bdbe394c1a8de5dfd4290b47d008ef8410a 120777 root:root ../../../libmct.so.0 +/usr/lib/debug/.build-id/58/bd9bdbe394c1a8de5dfd4290b47d008ef8410a.debug 120777 root:root ../../usr/lib/libmct.so.0.debug +/usr/lib/debug/.build-id/a7 40755 root:root +/usr/lib/debug/.build-id/a7/62f4b50592b0f0f043cca8fc3e69b627d0fb89 120777 root:root ../../../libmpeu.so.0 +/usr/lib/debug/.build-id/a7/62f4b50592b0f0f043cca8fc3e69b627d0fb89.debug 120777 root:root ../../usr/lib/libmpeu.so.0.debug /usr/lib/debug/usr/lib/libmct.so.0.debug 100644 root:root @@ -68,2 +68,3 @@ Requires: debug(libc.so.6) +Requires: debug(libgcc_s.so.1) Requires: debug(libgfortran.so.5) @@ -75,10 +76,10 @@ Provides: libmct-debuginfo = 2.8.3-alt4:sisyphus+289244.100.1.1 -File: /usr/lib/debug/.build-id/02 40755 root:root -File: /usr/lib/debug/.build-id/02/2a3e5c92744dd5bf61fc2c0869b41a3d2d4a85 120777 root:root ../../../libmct.so.0 -File: /usr/lib/debug/.build-id/02/2a3e5c92744dd5bf61fc2c0869b41a3d2d4a85.debug 120777 root:root ../../usr/lib/libmct.so.0.debug -File: /usr/lib/debug/.build-id/f7 40755 root:root -File: /usr/lib/debug/.build-id/f7/3b70f8cf21632d6e0fa95c0b0e73a41a124372 120777 root:root ../../../libmpeu.so.0 -File: /usr/lib/debug/.build-id/f7/3b70f8cf21632d6e0fa95c0b0e73a41a124372.debug 120777 root:root ../../usr/lib/libmpeu.so.0.debug -File: /usr/lib/debug/usr/lib/libmct.so.0.debug 100644 root:root 36920a3f46a9c5fce7f7d06a2630f7ba -File: /usr/lib/debug/usr/lib/libmpeu.so.0.debug 100644 root:root b98d91de1f8c4171391ddc848878d5f1 +File: /usr/lib/debug/.build-id/58 40755 root:root +File: /usr/lib/debug/.build-id/58/bd9bdbe394c1a8de5dfd4290b47d008ef8410a 120777 root:root ../../../libmct.so.0 +File: /usr/lib/debug/.build-id/58/bd9bdbe394c1a8de5dfd4290b47d008ef8410a.debug 120777 root:root ../../usr/lib/libmct.so.0.debug +File: /usr/lib/debug/.build-id/a7 40755 root:root +File: /usr/lib/debug/.build-id/a7/62f4b50592b0f0f043cca8fc3e69b627d0fb89 120777 root:root ../../../libmpeu.so.0 +File: /usr/lib/debug/.build-id/a7/62f4b50592b0f0f043cca8fc3e69b627d0fb89.debug 120777 root:root ../../usr/lib/libmpeu.so.0.debug +File: /usr/lib/debug/usr/lib/libmct.so.0.debug 100644 root:root 28584369c50733df4275487093f664b3 +File: /usr/lib/debug/usr/lib/libmpeu.so.0.debug 100644 root:root f772144c0d9da9fda2753821d1b70d6a File: /usr/src/debug/mct-2.8.3 40755 root:root @@ -141,2 +142,2 @@ File: /usr/src/debug/mct-2.8.3/mpeu/m_zeit.F90 100644 root:root 1ae3b7c727b88c1a151a5138d0f90b05 -RPMIdentity: 39169187efe08825a8da00b542d3311af6b32dd096a1d637e7ed1357df75236b0cc0654d837261dfda47cb12b2a174b6c1b937d9cab09a1261dac6431d93f3f8 +RPMIdentity: 7c74489e811cc218fe10ef8548d30f11f88e5c3252a3eb07e42b86bcf327b681a77f4c532f0ce26211d8e0494b3942544a235dfa0aa8bdc713c2caa3ecf2256e --- libmct-devel-2.8.3-alt4.i586.rpm.repo 2021-11-09 08:30:42.000000000 +0000 +++ libmct-devel-2.8.3-alt4.i586.rpm.hasher 2023-09-23 08:01:14.303359707 +0000 @@ -60,9 +60,9 @@ Provides: libmct-devel = 2.8.3-alt4:sisyphus+289244.100.1.1 -File: /usr/include/m_accumulator.mod 100644 root:root 78bf8da465f120879536505f621933ca +File: /usr/include/m_accumulator.mod 100644 root:root 33f9091204e16ded9e0b9b067c085e26 File: /usr/include/m_accumulatorcomms.mod 100644 root:root b33c1e26f90659075e52f0e23dafb06e -File: /usr/include/m_attrvect.mod 100644 root:root e0b45595b56a6f9c76a0fac40b316fbf -File: /usr/include/m_attrvectcomms.mod 100644 root:root a6afa005ecc85c096f69a89f05206947 +File: /usr/include/m_attrvect.mod 100644 root:root a05e595e89912aa3f2f33cd8e9e51fcf +File: /usr/include/m_attrvectcomms.mod 100644 root:root cc730343a2771acba3e12362b13b1047 File: /usr/include/m_attrvectreduce.mod 100644 root:root 6a74c55c22d68f07cdda4b16943b680e File: /usr/include/m_chars.mod 100644 root:root 19aba0b1faaf9457a44e67f80bb1e75b -File: /usr/include/m_convertmaps.mod 100644 root:root 876b875bad817279ebfda5597b724457 +File: /usr/include/m_convertmaps.mod 100644 root:root 8a5e018bb29e1f01f345e4cb69b2bd11 File: /usr/include/m_die.mod 100644 root:root 5212a94db8485d30cfbf52d8eee00101 @@ -74,6 +74,6 @@ File: /usr/include/m_flow.mod 100644 root:root 265a812001fdf59061f103062dd8bdd9 -File: /usr/include/m_generalgrid.mod 100644 root:root 267576105d03ab285cc82bb2368c06bf -File: /usr/include/m_generalgridcomms.mod 100644 root:root 1997ef489eaf4dec8d66280dd8dc7597 -File: /usr/include/m_globalmap.mod 100644 root:root 17495a488af6452c81fd9c3c46a88752 -File: /usr/include/m_globalsegmap.mod 100644 root:root 0329ac4cb6c8b1aa17e115ab2433da10 +File: /usr/include/m_generalgrid.mod 100644 root:root ebca2d00d65c5f1705a50f2323816624 +File: /usr/include/m_generalgridcomms.mod 100644 root:root f63634098ca1e129b856088ea9609bf4 +File: /usr/include/m_globalmap.mod 100644 root:root 3768df3bcf6ad93f7c7b0b2f6ebbac09 +File: /usr/include/m_globalsegmap.mod 100644 root:root e9336e3ac925d570479e8537e512c52a File: /usr/include/m_globalsegmapcomms.mod 100644 root:root 1452a31fc2e3a18d47eb8c2d6b46ffdb @@ -83,8 +83,8 @@ File: /usr/include/m_indexbin_logical.mod 100644 root:root ebfaff1553f2db6ab198115a108961f1 -File: /usr/include/m_inpak90.mod 100644 root:root 0e59f192a0d5bdf0c0addfdd63a7a70b +File: /usr/include/m_inpak90.mod 100644 root:root f9222a8ea124cf5c7c103392e87956b3 File: /usr/include/m_ioutil.mod 100644 root:root 43296aaa7a0daab58700d4bbf584e2df -File: /usr/include/m_list.mod 100644 root:root 72b819a0f5f9b7c26c5294a4fbfe582f +File: /usr/include/m_list.mod 100644 root:root 16f98509d9687e570c0c050c157f1a1f File: /usr/include/m_mall.mod 100644 root:root 349d9364c528470dcbaaeb7279e23895 File: /usr/include/m_matattrvectmul.mod 100644 root:root a8536f36fa4cd408cab37bf82e2746e4 -File: /usr/include/m_mctworld.mod 100644 root:root a8fe1aae2437372349669599e4201d44 +File: /usr/include/m_mctworld.mod 100644 root:root b39e032e0b241c9529bc0864c813adfe File: /usr/include/m_merge.mod 100644 root:root 2b61f2bae9d2377308983556639d36aa @@ -94,3 +94,3 @@ File: /usr/include/m_mpout.mod 100644 root:root cb26a7c3106948bc08e9e278ce6d83df -File: /usr/include/m_navigator.mod 100644 root:root 4b26498d74c5448f8535531ef1e7b54b +File: /usr/include/m_navigator.mod 100644 root:root cc9bef4704dc5babf847a18654d2c6aa File: /usr/include/m_permuter.mod 100644 root:root 5161326612465d8c8962d642aef1f90c @@ -98,10 +98,10 @@ File: /usr/include/m_realkinds.mod 100644 root:root b72d9c04ebf94771895ce94fe0d33f19 -File: /usr/include/m_rearranger.mod 100644 root:root d39b7902108d3f5067995a93d8a25480 -File: /usr/include/m_router.mod 100644 root:root 3ba8ba9ebfedb4036a00f69eeddd8843 +File: /usr/include/m_rearranger.mod 100644 root:root 0039052faec28941bec387d64f73d359 +File: /usr/include/m_router.mod 100644 root:root a06a00219735be644d46901751d20736 File: /usr/include/m_sortingtools.mod 100644 root:root ff3a214430080c3e4e1a8ab01239820c -File: /usr/include/m_sparsematrix.mod 100644 root:root 4c73a0d5aa615df8d3828dfd1b40b6a6 +File: /usr/include/m_sparsematrix.mod 100644 root:root c1609889c7853a8643db59e7a1050043 File: /usr/include/m_sparsematrixcomms.mod 100644 root:root d0cbd0c94ddd32b15888991f512f4197 File: /usr/include/m_sparsematrixdecomp.mod 100644 root:root d127e72439aeb3dc0be572af58e1e48b -File: /usr/include/m_sparsematrixplus.mod 100644 root:root 2696a3a5d8e9fa4f47ecc1411592cfb1 -File: /usr/include/m_sparsematrixtomaps.mod 100644 root:root cec48608efda3d3e5e40d98c8fe28c44 +File: /usr/include/m_sparsematrixplus.mod 100644 root:root d956546bec248159b1329e29276cd511 +File: /usr/include/m_sparsematrixtomaps.mod 100644 root:root cd353f829e660c404bfb126cfd8ae8dd File: /usr/include/m_spatialintegral.mod 100644 root:root ebee4613f821689e46e741580ccdfe7e @@ -109,6 +109,6 @@ File: /usr/include/m_stdio.mod 100644 root:root ba0b73a1b7893efae0504920d6602002 -File: /usr/include/m_string.mod 100644 root:root 1e0ed27af253392c6124970d72201cfa +File: /usr/include/m_string.mod 100644 root:root 74f606cf8bb090deae48d93cebe5fb7e File: /usr/include/m_strtemplate.mod 100644 root:root 54ffa4237c289985b9686e18f13c4245 File: /usr/include/m_traceback.mod 100644 root:root 4d9c2fb06f49fc5101ed30f251133f37 -File: /usr/include/m_transfer.mod 100644 root:root 8d21f922da29dc0a62e2c74ae24b66b9 +File: /usr/include/m_transfer.mod 100644 root:root 0de82e3cb663bcc89adc4a4711a71d05 File: /usr/include/m_zeit.mod 100644 root:root 937b2c4a77bb23d1dc14ca64f5369390 @@ -116,2 +116,2 @@ File: /usr/lib/libmpeu.so 120777 root:root libmpeu.so.0 -RPMIdentity: e6ac82a2b6581f419fcfcbcad2cbdfb68cd739e958f54f56f36c6c17eaeacabcc5fe70be26efcc03e960702b7446be228a0d0258c4b0491fdb095c7d37f6934b +RPMIdentity: 58f84d76b717a99691bbdc3a991940518fde5001dcb7bfea11b437e7bc873f5fd1007a08347970468fcd9a09aa53877222f54da9a2d886c52d65be9b17bdaad6