* installing *source* package ‘x13binary’ ... ** using staged installation ** libs FC="flang-new-17" LINKER="clang-17 " LDFLAGS="-L/usr/lib/llvm-17/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm" make --directory=../tools/x13as_html -f makefile.gf x13ashtml make[1]: Entering directory '/srv/hornik/tmp/CRAN/x13binary.Rcheck/00_pkg_src/x13binary/tools/x13as_html' flang-new-17 -c -o aaamain.o aaamain.f ./aaamain.f:164:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=54_8) vs CHARACTER(KIND=1,LEN=24_8) CALL writTagOneLine(Ng,'h2','center',dattim) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:161:8: previous reference to 'writtagoneline' CALL writTagOneLine(Ng,'h1','center', ^ ./aaamain.f:218:11: warning: Reference to the procedure 'makeanchor' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL makeAnchor(Ng,Idxlog,'skip') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:214:9: previous reference to 'makeanchor' CALL makeAnchor(Ng,Idxlog,'pos') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:268:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:269:9: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=15_8) CALL makDivId(Mt1,'rightnavigation','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:158:31: previous reference to 'makdivid' IF(Lmeta.and.Imeta.gt.1)CALL makDivId(Ng,'content','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:272:11: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL writTagOneLine(Mt1,'p','@', ^ ./aaamain.f:161:8: previous reference to 'writtagoneline' CALL writTagOneLine(Ng,'h1','center', ^ ./aaamain.f:280:10: warning: Reference to the procedure 'makeanchor' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8) CALL makeAnchor(Mt1,-1,'index') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:214:9: previous reference to 'makeanchor' CALL makeAnchor(Ng,Idxlog,'pos') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:281:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) CALL writTagOneLine(Mt1,'h2','@', ^ ./aaamain.f:161:8: previous reference to 'writtagoneline' CALL writTagOneLine(Ng,'h1','center', ^ ./aaamain.f:297:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Mt1,Charhr) ^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:317:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkPOneLine(Mt1,'indentnav', ^ ./aaamain.f:165:8: previous reference to 'mkponeline' CALL mkPOneLine(Ng,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:326:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:328:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:329:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:330:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Mt2,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:331:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Mt2,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:348:9: warning: Reference to the procedure 'makeanchor' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL makeAnchor(Ng,Idxlog,'skip') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:214:9: previous reference to 'makeanchor' CALL makeAnchor(Ng,Idxlog,'pos') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:374:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:375:8: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=15_8) CALL makDivId(Ng,'rightnavigation','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:158:31: previous reference to 'makdivid' IF(Lmeta.and.Imeta.gt.1)CALL makDivId(Ng,'content','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:376:8: warning: Reference to the procedure 'makeanchor' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8) CALL makeAnchor(Ng,-1,'index') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:214:9: previous reference to 'makeanchor' CALL makeAnchor(Ng,Idxlog,'pos') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:377:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments CALL writTagOneLine(Ng,'h1','center', ^ ./aaamain.f:161:8: previous reference to 'writtagoneline' CALL writTagOneLine(Ng,'h1','center', ^ ./aaamain.f:397:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:400:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:401:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./aaamain.f:263:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o abend.o abend.f ./abend.f:50:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=43_8) & CALL mkPOneLine(Ng,'center', ^ ./abend.f:41:11: previous reference to 'mkponeline' & CALL mkPOneLine(Ng,'center', ^ flang-new-17 -c -o acf.o acf.f ./acf.f:138:11: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=54_8) vs CHARACTER(KIND=1,LEN=46_8) CALL mkTableTag(Mt1,'w80','Sample Autocorrelation of '// ^ ./acf.f:132:11: previous reference to 'mktabletag' CALL mkTableTag(Mt1,'w80','Sample Autocorrelation of '// ^ ./acf.f:140:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=54_8) vs CHARACTER(KIND=1,LEN=46_8) CALL mkCaption(Mt1,'Sample Autocorrelation of Innovations, '// ^ ./acf.f:134:11: previous reference to 'mkcaption' CALL mkCaption(Mt1,'Sample Autocorrelation of Squared '// ^ ./acf.f:151:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:143:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:159:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:143:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:161:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=14_8) CALL mkHeaderCellScope(Mt1,0,0,'row','Standard Error','SE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:153:10: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'row', ^ ./acf.f:165:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:143:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:168:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(Mt1,0,0,'row','Ljung-Box Q','LB Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:153:10: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'row', ^ ./acf.f:170:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=12_8) CALL mkHeaderCellScope(Mt1,0,0,'row','Box-Pierce Q','BP Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:153:10: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'row', ^ ./acf.f:175:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:143:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:177:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=18_8) CALL mkHeaderCellScope(Mt1,0,0,'row','Degrees of Freedom','DF') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:153:10: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'row', ^ ./acf.f:182:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:143:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:184:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(Mt1,0,0,'row','Probability','P') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:153:10: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'row', ^ ./acf.f:188:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:143:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:189:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acf.f:143:10: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o acfar.o acfar.f flang-new-17 -c -o acfdgn.o acfdgn.f ./acfdgn.f:76:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=14_8) CALL mkHeaderCellScope(Ng,0,0,'col','Standard Error','se') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:77:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(Ng,0,0,'col','t-statistic','t-stat') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:78:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(Ng,0,0,'col','Ljung-Box Q','Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:79:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=18_8) CALL mkHeaderCellScope(Ng,0,0,'col','Degrees of Freedom','df') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:80:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkHeaderCellScope(Ng,0,0,'col','@','p-value') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:81:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:90:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:94:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:116:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Ng,'center', ^ ./acfdgn.f:95:8: previous reference to 'mkponeline' CALL mkPOneLine(Ng,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:121:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=34_8) CALL mkTableTag(Ng,'w60','Summary of Significant Ljung-Box Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:70:8: previous reference to 'mktabletag' CALL mkTableTag(Ng,'w60','Summary of Seasonal ACF Lags') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:122:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=34_8) CALL mkCaption(Ng,'Summary of Significant Ljung-Box Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:71:8: previous reference to 'mkcaption' CALL mkCaption(Ng,'Summary of Seasonal ACF Lags') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:125:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(Ng,0,0,'col','Ljung-Box Q','Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:126:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=18_8) CALL mkHeaderCellScope(Ng,0,0,'col','Degrees of Freedom','df') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:127:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkHeaderCellScope(Ng,0,0,'col','@','p-value') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:128:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:134:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:137:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:182:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Ng,'center', ^ ./acfdgn.f:95:8: previous reference to 'mkponeline' CALL mkPOneLine(Ng,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:187:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=35_8) CALL mkTableTag(Ng,'w60','Summary of Significant Box-Pierce Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:70:8: previous reference to 'mktabletag' CALL mkTableTag(Ng,'w60','Summary of Seasonal ACF Lags') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:188:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=35_8) CALL mkCaption(Ng,'Summary of Significant Box-Pierce Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:71:8: previous reference to 'mkcaption' CALL mkCaption(Ng,'Summary of Seasonal ACF Lags') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:191:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=12_8) CALL mkHeaderCellScope(Ng,0,0,'col','Box-Pierce Q','Q') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:192:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=18_8) CALL mkHeaderCellScope(Ng,0,0,'col','Degrees of Freedom','df') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:193:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkHeaderCellScope(Ng,0,0,'col','@','p-value') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:74:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','Autocorrelation Function', ^ ./acfdgn.f:194:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:200:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:203:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./acfdgn.f:72:8: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o acfhdr.o acfhdr.f flang-new-17 -c -o addadj.o addadj.f ./addadj.f:70:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=63_8) CALL eWritln('Prior adjustment factors expressed as '// ^ ./addadj.f:67:12: previous reference to 'ewritln' CALL eWritln('Prior adjustment factors expressed as '// ^ ./addadj.f:75:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=34_8) vs CHARACTER(KIND=1,LEN=76_8) CALL writln(' Check the '//Adjtyp// ^ ./addadj.f:73:11: previous reference to 'writln' CALL writln(' less than or equal to zero.', ^ flang-new-17 -c -o addate.o addate.f flang-new-17 -c -o addeas.o addeas.f flang-new-17 -c -o addfix.o addfix.f ./addfix.f:58:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=1840_8) CALL getstr(Cfxttl,Cfxptr,Nfxttl,icol,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addfix.f:54:9: previous reference to 'getstr' CALL getstr(Gfxttl,Gfxptr,Ngfxtl,igrp,strgrp,nchgrp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o addlom.o addlom.f flang-new-17 -c -o addmat.o addmat.f flang-new-17 -c -o addmul.o addmul.f flang-new-17 -c -o addotl.o addotl.f ./addotl.f:122:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=47_8) CALL writln(' last data point of the span of the data.', ^ ./addotl.f:99:10: previous reference to 'writln' CALL writln(' the span of the data.',fh2,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addotl.f:128:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=48_8) CALL writln( ^ ./addotl.f:99:10: previous reference to 'writln' CALL writln(' the span of the data.',fh2,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o addsef.o addsef.f ./addsef.f:67:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Mt2,'

') ^^^^^^^^^^^^^^^^^^^^^^^^ ./addsef.f:64:8: previous reference to 'writtag' CALL writTag(Mt2,Cbr) ^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o addsub.o addsub.f flang-new-17 -c -o addtd.o addtd.f ./addtd.f:79:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=3_8) CALL adrgef(DNOTST,day(i),tgrptl(1:ipos2),vartd,F,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addtd.f:76:10: previous reference to 'adrgef' CALL adrgef(DNOTST,'Weekday','1-Coefficient '//tgrptl(1:ipos2), ^ ./addtd.f:96:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=9_8) CALL adrgef(DNOTST,'Weekday I', ^ ./addtd.f:76:10: previous reference to 'adrgef' CALL adrgef(DNOTST,'Weekday','1-Coefficient '//tgrptl(1:ipos2), ^ ./addtd.f:101:11: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL adrgef(DNOTST,day(i)//' I',tgrptl(1:ipos2),vartd1,F,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addtd.f:76:10: previous reference to 'adrgef' CALL adrgef(DNOTST,'Weekday','1-Coefficient '//tgrptl(1:ipos2), ^ ./addtd.f:110:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=10_8) CALL adrgef(DNOTST,'Weekday II', ^ ./addtd.f:76:10: previous reference to 'adrgef' CALL adrgef(DNOTST,'Weekday','1-Coefficient '//tgrptl(1:ipos2), ^ ./addtd.f:115:11: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=6_8) CALL adrgef(DNOTST,day(i)//' II',tgrptl(1:ipos2),vartd2,F,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addtd.f:76:10: previous reference to 'adrgef' CALL adrgef(DNOTST,'Weekday','1-Coefficient '//tgrptl(1:ipos2), ^ flang-new-17 -c -o addusr.o addusr.f ./addusr.f:60:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL cpyint(Usrty2(disp),PUREG,1,Usrtyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addusr.f:58:7: previous reference to 'cpyint' CALL cpyint(Usrpt2(disp),PUREG+1,1,Usrptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addusr.f:69:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=1196_8) CALL getstr(Usrttl,Usrptr,Ncusrx,i,effttl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addusr.f:40:11: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,thisu,nusr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addusr.f:75:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=20_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:78:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=28_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:82:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=28_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:86:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=28_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:90:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=28_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:94:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=24_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:98:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=22_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:102:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=16_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:105:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=16_8) CALL adrgef(Buser(disp+i),effttl(1:nchr),'User-defined LOQ', ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:108:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=15_8) CALL adrgef(Buser(disp+i),effttl(1:nchr),'User-defined AO', ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:111:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=15_8) CALL adrgef(Buser(disp+i),effttl(1:nchr),'User-defined LS', ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:114:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=15_8) CALL adrgef(Buser(disp+i),effttl(1:nchr),'User-defined SO', ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:121:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=18_8) CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ ./addusr.f:125:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=21_8) vs CHARACTER(KIND=1,LEN=12_8) CALL adrgef(Buser(disp+i),effttl(1:nchr),'User-defined', ^ ./addusr.f:72:10: previous reference to 'adrgef' CALL adrgef(Buser(disp+i),effttl(1:nchr), ^ flang-new-17 -c -o adestr.o adestr.f flang-new-17 -c -o adjreg.o adjreg.f ./adjreg.f:75:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Ftd,N,Fcntyp,Lam,Ftd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:76:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fhol,N,Fcntyp,Lam,Fhol) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:77:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fls,N,Fcntyp,Lam,Fls) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:78:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Ftc,N,Fcntyp,Lam,Ftc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:79:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fao,N,Fcntyp,Lam,Fao) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:80:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fso,N,Fcntyp,Lam,Fso) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:81:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fsea,N,Fcntyp,Lam,Fsea) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:82:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fusr,N,Fcntyp,Lam,Fusr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:83:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fcyc,N,Fcntyp,Lam,Fcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:101:38: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(.not.Axrgtd.and.Adjtd.eq.1)CALL copy(Ftd,N,1,Factd(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:102:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjhol.eq.1)CALL copy(Fhol,N,1,Fachol(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:103:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjao.eq.1)CALL copy(Fao,N,1,Facao(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:104:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjls.eq.1)CALL copy(Fls,N,1,Facls(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:105:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjtc.eq.1)CALL copy(Ftc,N,1,Factc(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:106:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjso.eq.1)CALL copy(Fso,N,1,Facso(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:107:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjsea.eq.1)CALL copy(Fsea,N,1,Facsea(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:108:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjusr.eq.1)CALL copy(Fusr,N,1,Facusr(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:109:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjcyc.eq.1)CALL copy(Fcyc,N,1,Faccyc(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o adjsrs.o adjsrs.f flang-new-17 -c -o adlabr.o adlabr.f flang-new-17 -c -o adotss.o adotss.f flang-new-17 -c -o adpdrg.o adpdrg.f ./adpdrg.f:116:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:124:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:128:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Not within series',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:145:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:152:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:156:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Not within series',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:168:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:176:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:180:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'End of ramp not within series',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:184:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Beginning of ramp not within series', ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:189:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Beginning and end of ramp reversed', ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:202:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:210:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:214:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Not within series',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:226:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:234:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:238:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Not within series',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:250:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:258:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:262:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:267:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:272:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:285:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:293:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:297:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:302:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:307:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:320:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:328:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:332:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:337:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:342:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:355:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:363:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'See the above AOS or LSS error.',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:366:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:371:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:376:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:389:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:397:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'See the above AOS or LSS error.',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:400:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:405:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:410:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:443:7: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments 10 CALL adrgef(DNOTST,'Constant','Constant',PRGTCN,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:452:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:457:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:462:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:465:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:470:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:482:11: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,effttl(1:nchr),'Seasonal',PRGTSE,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:497:11: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,effttl(1:nchr),'Seasonal',PRGTSE,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:507:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:510:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:528:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:533:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:538:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:543:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:546:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:552:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:574:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,effttl(1:ipos),'Trigonometric Seasonal', ^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:588:11: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,effttl(1:ipos),'Trigonometric Seasonal', ^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:606:9: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=22_8) CALL adrgim(Begsrs,Nobs,Havesp,'Trigonometric Seasonal', ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:618:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:622:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:626:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:636:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:640:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:644:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:652:12: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,'Weekday','1-Coefficient Trading Day', ^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:657:13: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,day(i),'Trading Day',PRGTTD,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:664:12: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=25_8) CALL adrgim(Begsrs,Nobs,Havesp,'1-Coefficient Trading Day', ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:668:12: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=11_8) CALL adrgim(Begsrs,Nobs,Havesp,'Trading Day',PRRTTD,PRATTD, ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:688:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:691:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=33_8) CALL writln(' the td or td1coef option.',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:698:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Can''t add a length of month '// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:701:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Can''t add a length of quarter '// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:704:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=17_8) CALL writln(' variable.',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:709:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:712:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:717:25: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments IF(.not.Fullln)CALL adrgef(DNOTST,'Length-of-Month', ^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:720:11: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=15_8) CALL adrgim(Begsrs,Nobs,Havesp,'Length-of-Month',PRRTLM, ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:727:25: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments IF(.not.Fullln)CALL adrgef(DNOTST,'Length-of-Quarter', ^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:730:11: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=17_8) CALL adrgim(Begsrs,Nobs,Havesp,'Length-of-Quarter',PRRTLQ, ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:742:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Can''t add a leap year variable'// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:745:11: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Can''t add a leap year variable'// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:748:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=17_8) CALL writln(' variable.',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:752:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:757:13: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments & CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:761:12: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=9_8) CALL adrgim(Begsrs,Nobs,Havesp,'Leap Year',PRRTLY,PRATLY, ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:772:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:776:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Can''t add a stock length of '// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:778:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=27_8) CALL writln(' leap year variable.',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:782:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:788:25: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments IF(.not.Fullln)CALL adrgef(DNOTST,'Stock Length-of-Month', ^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:793:13: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=21_8) & CALL adrgim(Begsrs,Nobs,Havesp,'Stock Length-of-Month', ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:812:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:817:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:822:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:825:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=23_8) CALL writln(' the start date.',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:828:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:833:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:838:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:843:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'Stock TD sample day must be (1:31)',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:854:8: warning: Reference to the procedure 'itoc' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=72_8) CALL itoc(tdspdy,tgrptl,ipos) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:489:11: previous reference to 'itoc' CALL itoc(i,effttl,ipos) ^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:860:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:864:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:871:11: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,'Weekday','1-Coefficient '//tgrptl(1:nchr), ^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:875:12: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,day(i),tgrptl(1:nchr),PRGTST,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:883:11: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments CALL adrgim(Begsrs,Nobs,Havesp,'1-Coefficient '// ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:887:11: warning: Reference to the procedure 'adrgim' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments CALL adrgim(Begsrs,Nobs,Havesp,tgrptl(1:nchr),PRRTST,PRATST, ^ ./adpdrg.f:503:9: previous reference to 'adrgim' CALL adrgim(Begsrs,Nobs,Havesp,'Seasonal',PRRTSE,PRATSE,zeroz, ^ ./adpdrg.f:909:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:914:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:919:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:922:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=19_8) CALL writln(' start date.',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:925:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:929:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:936:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:941:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:946:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Errpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:952:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Errpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:955:9: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Errpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:979:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,effttl(1:nchr),'StockEaster',PRGTES,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:981:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,effttl(1:nchr),'Easter',PRGTEA,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:984:9: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,effttl(1:nchr),'StatCanEaster',PRGTEC,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:425:7: previous reference to 'adrgef' 210 CALL adrgef(DNOTST,Rgname(1:Nrgchr),Rgname(1:Nrgchr),vartyp,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:996:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1001:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1006:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1013:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1018:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'A Labor Day regressor is already '// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1025:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1030:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:1035:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Errpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1040:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Errpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1063:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1068:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1073:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1077:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=52_8) & CALL writln( ^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:1083:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1088:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos,'A Thanksgiving-Christmas regressor '// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1090:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=30_8) CALL writln(' in the regARIMA model.',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:629:8: previous reference to 'writln' CALL writln(' the start date',Mt2,STDERR,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:1096:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1101:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:1106:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Errpos, ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ ./adpdrg.f:1111:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL inpter(PERROR,Errpos,'The Thanksgiving day window must '// ^ ./adpdrg.f:104:8: previous reference to 'inpter' CALL inpter(PERROR,Lstpos, ^ flang-new-17 -c -o adrgef.o adrgef.f ./adrgef.f:99:12: warning: Reference to the procedure 'rdotlr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: assumed-length character vs explicit-length character CALL rdotlr(tmpttl(1:nchr),Begspn,Sp,otlid2,bgotl2,endotl, ^ ./adrgef.f:84:10: previous reference to 'rdotlr' CALL rdotlr(Effttl,Begspn,Sp,otlidx,begotl,endotl,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:181:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=5760_8) CALL getstr(Grpttl,Grpptr,Ngrp,jgrp,tmpttl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:97:12: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,tmpttl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:183:11: warning: Reference to the procedure 'rdregm' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: assumed-length character vs explicit-length character CALL rdregm(tmpttl(1:nchr),Begspn,Sp,zero2,rgmid2,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:171:10: previous reference to 'rdregm' CALL rdregm(Igrptl,Begspn,Sp,zeroz,rgmidx,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:242:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' Check the regression model, change the '// ^ ./adrgef.f:240:8: previous reference to 'writln' CALL writln(' in the model ('//numstr(1:(ipos-1))//').', ^ ./adrgef.f:244:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' (e.g. method to ADDONE, raise the '// ^ ./adrgef.f:240:8: previous reference to 'writln' CALL writln(' in the model ('//numstr(1:(ipos-1))//').', ^ ./adrgef.f:246:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' to identify AOs only), or change the '// ^ ./adrgef.f:240:8: previous reference to 'writln' CALL writln(' in the model ('//numstr(1:(ipos-1))//').', ^ ./adrgef.f:248:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' of the '//PRGNAM//' '//DOCNAM//').', ^ ./adrgef.f:240:8: previous reference to 'writln' CALL writln(' in the model ('//numstr(1:(ipos-1))//').', ^ ./adrgef.f:287:9: warning: Reference to the procedure 'rdotlr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: assumed-length character vs explicit-length character CALL rdotlr(tmpttl(1:nchr),Begspn,Sp,otlid2,bgotl2,endotl,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:84:10: previous reference to 'rdotlr' CALL rdotlr(Effttl,Begspn,Sp,otlidx,begotl,endotl,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:371:7: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=1840_8) 10 CALL insstr(Effttl,icol,PB,Colttl,Colptr,Ncoltl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgef.f:225:9: previous reference to 'insstr' CALL insstr(Igrptl,igrp,PGRP,Grpttl,Grpptr,Ngrptl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o adrgim.o adrgim.f ./adrgim.f:74:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,colstr(1:ncolcr)//' I',rgmtxt(1:nrgm), ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:80:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,colstr(1:ncolcr)//' I',rgmtxt(1:nrgm), ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:86:11: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,colstr(1:ncolcr)//' II',rgmtxt(1:nrgm), ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:93:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,colstr(1:ncolcr)//' II',rgmtxt(1:nrgm), ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:99:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL adrgef(DNOTST,colstr(1:ncolcr)//' II',rgmtxt(1:nrgm), ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:136:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=5760_8) CALL getstr(Grpttl,Grpptr,Ngrp,igrp,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgim.f:68:8: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Ncoltl,icol,colstr,ncolcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgim.f:151:12: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=5760_8) CALL getstr(Grpttl,Grpptr,Ngrp,igrp+1,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgim.f:68:8: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Ncoltl,icol,colstr,ncolcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adrgim.f:181:9: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=11_8) CALL adrgef(DNOTST,'Leap Year I', ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:185:9: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=11_8) CALL adrgef(DNOTST,'Leap Year I', ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:188:12: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=12_8) & CALL adrgef(DNOTST,'Leap Year II','Leap Year (starting '// ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:191:9: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=12_8) CALL adrgef(DNOTST,'Leap Year II','Leap Year (change for after ' ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ ./adrgim.f:194:9: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=12_8) CALL adrgef(DNOTST,'Leap Year II', ^ ./adrgim.f:59:8: previous reference to 'adrgef' CALL adrgef(DNOTST,'Leap Year','Leap Year (after '// ^ flang-new-17 -c -o adsncs.o adsncs.f ./adsncs.f:73:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Mt2,'

') ^^^^^^^^^^^^^^^^^^^^^^^^ ./adsncs.f:70:8: previous reference to 'writtag' CALL writTag(Mt2,Cbr) ^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o adthnk.o adthnk.f flang-new-17 -c -o aggmea.o aggmea.f flang-new-17 -c -o agr.o agr.f flang-new-17 -c -o agr1.o agr1.f ./agr1.f:62:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PREV,Cncisa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr1.f:56:8: previous reference to 'setdp' CALL setdp(ZERO,MXLEN*MXCOL,Saind) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr1.f:63:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PREV,Finisa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr1.f:56:8: previous reference to 'setdp' CALL setdp(ZERO,MXLEN*MXCOL,Saind) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o agr2.o agr2.f ./agr2.f:134:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=12_8) CALL mkHeaderCellScope(Ng,0,0,'col','@','Last 3 Years') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:133:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:135:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:137:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=23_8) CALL mkHeaderCellScope(Ng,0,0,'row','@', ^ ./agr2.f:133:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:140:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:142:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=24_8) CALL mkHeaderCellScope(Ng,0,0,'row','@', ^ ./agr2.f:133:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:145:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:148:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=23_8) CALL mkHeaderCellScope(Ng,0,0,'row','@', ^ ./agr2.f:133:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:151:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:153:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=24_8) CALL mkHeaderCellScope(Ng,0,0,'row','@', ^ ./agr2.f:133:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:156:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:158:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:168:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=55_8) CALL writTagOneLine(Mt1,'h2','@','Measures of roughness '// ^ ./agr2.f:165:10: previous reference to 'writtagoneline' CALL writTagOneLine(Mt1,'h2','@','Measures of roughness '// ^ ./agr2.f:172:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=28_8) CALL mkTableTag(Mt1,'x11','Smoothness Diagnostics Table') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:129:9: previous reference to 'mktabletag' CALL mkTableTag(Ng,'w60','Summary of Smoothness Diagnostics') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:173:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=28_8) CALL mkCaption(Mt1,'Smoothness Diagnostics Table') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:130:9: previous reference to 'mkcaption' CALL mkCaption(Ng,'Summary of Smoothness Diagnostics') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:178:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellId(Mt1,0,2,'ind','@','@','Indirect') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:179:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=17_8) CALL mkHeaderCellId(Mt1,0,2,'pct','@','@', ^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:181:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:185:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellId(Mt1,0,0,'fs1','@','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:186:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=12_8) CALL mkHeaderCellId(Mt1,0,0,'ly1','@','@','Last 3 Years') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:187:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellId(Mt1,0,0,'fs2','@','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:188:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=12_8) CALL mkHeaderCellId(Mt1,0,0,'ly2','@','@','Last 3 Years') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:189:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellId(Mt1,0,0,'fs3','@','@','Full Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:190:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=12_8) CALL mkHeaderCellId(Mt1,0,0,'ly3','@','@','Last 3 Years') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:191:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:194:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkHeaderCellId(Mt1,0,0,'r1mse','left','@', ^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:204:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:206:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkHeaderCellId(Mt1,0,0,'r1rmse','left','@', ^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:216:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:219:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkHeaderCellId(Mt1,0,0,'r2mse','left','@', ^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:229:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:231:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkHeaderCellId(Mt1,0,0,'r2rmse','left','@', ^ ./agr2.f:177:9: previous reference to 'mkheadercellid' CALL mkHeaderCellId(Mt1,0,2,'dir','@','@','Direct') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:241:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:243:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:131:9: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:245:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Mt1,'center','Positive percentage changes '// ^ ./agr2.f:159:9: previous reference to 'mkponeline' CALL mkPOneLine(Ng,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr2.f:366:14: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=85_8) CALL nWritln('Aggregation cannot be done when SEATS'// ^ ./agr2.f:81:9: previous reference to 'nwritln' CALL nWritln('Comparison diagnsotics for composite '// ^ flang-new-17 -c -o agr3.o agr3.f ./agr3.f:90:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=21_8) CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3.f:88:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3.f:92:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=25_8) CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3.f:88:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3.f:94:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:86:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:100:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments CALL mkHeaderCellScope(Mt1,0,0,'row','@', ^ ./agr3.f:88:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3.f:102:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Mt1,'center',ctype(Cmptyp(i)+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:87:8: previous reference to 'mktablecell' CALL mkTableCell(Mt1,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:105:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Mt1,'center',Cmpfil(i)(1:ncfil)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:87:8: previous reference to 'mktablecell' CALL mkTableCell(Mt1,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:106:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:86:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:108:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:86:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:109:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3.f:81:8: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@',dattim) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o agr3s.o agr3s.f ./agr3s.f:82:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=21_8) CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3s.f:80:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3s.f:84:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=25_8) CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3s.f:80:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3s.f:86:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:78:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:92:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments CALL mkHeaderCellScope(Mt1,0,0,'row','@', ^ ./agr3s.f:80:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./agr3s.f:94:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Mt1,'center',ctype(Cmptyp(i)+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:79:8: previous reference to 'mktablecell' CALL mkTableCell(Mt1,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:97:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Mt1,'center',Cmpfil(i)(1:ncfil)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:79:8: previous reference to 'mktablecell' CALL mkTableCell(Mt1,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:98:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:78:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:100:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:78:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:101:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr3s.f:73:8: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@',dattim) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o agrxpt.o agrxpt.f flang-new-17 -c -o altundovrtst.o altundovrtst.f ./altundovrtst.f:72:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=81_8) vs CHARACTER(KIND=1,LEN=11_8) CALL writTagOneLine(Nio,'h4','@','1. VARIANCE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:66:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@','SECOND ORDER MOMENTS OF '// ^ ./altundovrtst.f:169:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:176:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=81_8) vs CHARACTER(KIND=1,LEN=18_8) CALL writTagOneLine(Nio,'h4','@','2. AUTOCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:66:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@','SECOND ORDER MOMENTS OF '// ^ ./altundovrtst.f:178:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=18_8) CALL mkCaption(Nio,'2. AUTOCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:74:8: previous reference to 'mkcaption' CALL mkCaption(Nio,'1. VARIANCE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:382:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:389:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=81_8) vs CHARACTER(KIND=1,LEN=19_8) CALL writTagOneLine(Nio,'h4','@','3. CROSSCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:66:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@','SECOND ORDER MOMENTS OF '// ^ ./altundovrtst.f:391:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=19_8) CALL mkCaption(Nio,'3. CROSSCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:74:8: previous reference to 'mkcaption' CALL mkCaption(Nio,'1. VARIANCE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:392:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:399:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkHeaderCellScope(Nio,0,0,'col','@','IRREGULAR') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:396:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,0,'col','@','SEASONAL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:400:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:406:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:407:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(Nio,0,0,'row','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:396:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,0,'col','@','SEASONAL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:411:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Nio,'center',seaTreDgC//' ('//cpval2//')') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:393:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:415:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Nio,'center', treIrrDgC//' ('//cpval1//')') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:393:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:416:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:426:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:427:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkHeaderCellScope(Nio,0,0,'row','@','IRREGULAR') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:396:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,0,'col','@','SEASONAL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:428:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Nio,'center', seaIrrDgC//' ('//cpval1//')') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:393:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:429:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableCell(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:393:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:430:22: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) IF (inc.gt.1)CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:451:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./altundovrtst.f:157:8: previous reference to 'writtag' CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o amdest.o amdest.f flang-new-17 -c -o amdfct.o amdfct.f ./amdfct.f:67:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PFCST,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:66:7: previous reference to 'setdp' CALL setdp(ZERO,4,Mape) ^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:75:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fotl) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:66:7: previous reference to 'setdp' CALL setdp(ZERO,4,Mape) ^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:77:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(Chlxpx,PXPX,-1,tmpxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:78:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(Chlgpg,PGPG,-1,tmpgpg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:79:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(Chlvwp,PGPG,-1,tmpvwp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:80:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(Matd,(PLEN+PORDER)*PORDER,-1,tmpmd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:81:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Armacm,(PLEN+2*PORDER)*PARIMA,-1,tmpacm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:153:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(Xy,PLEN*(PB+1),1,xybak) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:163:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(tsrs,nobsf,1,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:164:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes IF(Nfxttl.gt.0)CALL copy(Fixfac,nobsf,1,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:166:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tsrs(nobsot+1),nobsf,1,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:167:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Nfxttl.gt.0)CALL copy(Fixfac(nobsot+1),nobsf,1,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:169:22: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes IF(Nfxttl.gt.0)CALL eltfcn(ADD,tmpsrs,fxfc,nobsf,PFCST,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:219:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tsrs(Sp+1),Nspobs,1,tsrs(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:233:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(Xy,PLEN*(PB+1),1,xybak) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:250:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Fixfac(fctori+1),nobsf,1,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:251:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes CALL eltfcn(ADD,tmpsrs,fxfc,nobsf,PFCST,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:252:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes CALL eltfcn(ADD,fcst,fxfc,nobsf,PFCST,fcst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:257:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes CALL eltfcn(SUB,tmpsrs,fcst,nobsf,PFCST,fdiff) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:258:23: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes IF(ivalue.eq.0)CALL eltfcn(DIV,fdiff,tmpsrs,nobsf,PFCST,fdiff) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:288:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(tmpxpx,PXPX,-1,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:289:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(tmpgpg,PGPG,-1,Chlgpg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:290:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(tmpvwp,PGPG,-1,Chlvwp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:291:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(tmpmd,(PLEN+PORDER)*PORDER,-1,Matd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:292:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tmpacm,(PLEN+2*PORDER)*PARIMA,-1,Armacm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:296:8: warning: Reference to the procedure 'regvar' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL regvar(Trnsrs,Nobspf,Fctdrp,Nfcst,0,Userx,Bgusrx,Nrusrx, ^ ./amdfct.f:224:9: previous reference to 'regvar' CALL regvar(tsrs,Nobspf,Fctdrp,nfc,0,Userx,Bgusrx,Nrusrx,Priadj, ^ ./amdfct.f:301:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes CALL copy(Xy,PLEN*(PB+1),1,xybak) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o amdid.o amdid.f ./amdid.f:103:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=118_8) CALL mkPOneLine(Mt1,'@','ARIMA Estimates and Likelihood '// ^ ./amdid.f:102:8: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:179:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=89_8) vs CHARACTER(KIND=1,LEN=91_8) CALL eWritln('Cannot make a choice of nonseasonal ') ^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:361:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:391:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=32_8) CALL mkHeaderCellScope(Ng,0,0,'col','Bayesian information '// ^ ./amdid.f:390:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Ng,0,0,'col','@','ARIMA Model') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:407:25: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) IF(Prttab(LAUB5M))CALL writTag(Mt2,'

') ^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:361:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:409:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8) & CALL mkPOneLine(Mt1,'center', ^ ./amdid.f:102:8: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:412:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid.f:361:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o amdid2.o amdid2.f ./amdid2.f:64:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=61_8) CALL writln(' while estimating inital values for ARIMA model'// ^ ./amdid2.f:41:8: previous reference to 'writln' CALL writln(' procedure for the reason(s) given above.', ^ ./amdid2.f:66:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=26_8) CALL writln(' Try setting hrinitial=no.',Mt1,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdid2.f:41:8: previous reference to 'writln' CALL writln(' procedure for the reason(s) given above.', ^ flang-new-17 -c -o amdprt.o amdprt.f ./amdprt.f:45:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Mt1,'

') ^^^^^^^^^^^^^^^^^^^^^^^^ ./amdprt.f:25:7: previous reference to 'writtag' CALL writTag(Mt1,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./amdprt.f:76:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Mt1,Cbr) ^^^^^^^^^^^^^^^^^^^^^ ./amdprt.f:25:7: previous reference to 'writtag' CALL writTag(Mt1,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./amdprt.f:85:45: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) IF(((ipr+iqr+ips+iqs).gt.0).or.Prtbic)CALL writTag(Mt1,'

') ^^^^^^^^^^^^^^^^^^^^^^^^ ./amdprt.f:25:7: previous reference to 'writtag' CALL writTag(Mt1,'

') ^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o amidot.o amidot.f ./amidot.f:54:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=54_8) vs CHARACTER(KIND=1,LEN=36_8) CALL writTagOneLine(Mt1,'li','@', ^ ./amidot.f:52:9: previous reference to 'writtagoneline' CALL writTagOneLine(Mt1,'li','@', ^ ./amidot.f:57:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=42_8) vs CHARACTER(KIND=1,LEN=74_8) CALL mkPOneLine(Mt1,'@', ^ ./amidot.f:49:9: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@', ^ ./amidot.f:62:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=42_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amidot.f:49:9: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@', ^ ./amidot.f:63:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=42_8) vs CHARACTER(KIND=1,LEN=63_8) CALL mkPOneLine(Mt1,'@','No models have been selected due '// ^ ./amidot.f:49:9: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@', ^ ./amidot.f:82:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' check the error file ('//Cursrs(1:nfil)// ^ ./amidot.f:80:8: previous reference to 'writln' CALL writln(' within the automatic model identification '// ^ flang-new-17 -c -o analts.o analts.f ./analts.f:1107:11: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHead(36,filename,'Table-s.out',F,1,1,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1077:11: previous reference to 'mkhead' CALL mkHead(54,filename,'Rates of Growth Matrix',F,1,1,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1325:11: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) CALL writTagOneLine(Nio,'h2','@','PART 1 : ARIMA ESTIMATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:983:11: previous reference to 'writtagoneline' CALL writTagOneLine(65,'h1','center',mattitle(1:22)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1384:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=33_8) CALL mkPOneLine(Nio,'em','METHOD: CONSTRAINED LEAST SQUARES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1380:12: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'em','METHOD: MAXIMUM LIKELIHOOD') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1422:13: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments call nWritln('MISSING OBSERVATIONS IN ORIGINAL SERIES'// ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1458:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1462:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1472:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1476:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1490:12: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('Units in input series are too small.', ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1495:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln('the program will do it automatically. '// ^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:1498:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@', ^ ./analts.f:1380:12: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'em','METHOD: MAXIMUM LIKELIHOOD') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1506:12: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('Units in input series are too large.', ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1511:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln('the program will do it automatically. '// ^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:1514:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@', ^ ./analts.f:1380:12: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'em','METHOD: MAXIMUM LIKELIHOOD') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1534:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments call prttbl(thisDate,Mq,oz,Nz,htmtit(1:ISTRLEN(htmtit)),3, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1537:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments call prttbl(thisDate,Mq,oz,Nz,htmtit(1:ISTRLEN(htmtit)),ndec, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1541:12: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('DETERMINISTIC EFFECTS ASSIGNED TO THE '// ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1547:12: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('DETERMINISTIC EFFECTS ASSIGNED TO THE '// ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1552:12: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('DETERMINISTIC EFFECTS ASSIGNED TO THE '// ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1557:12: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('DETERMINISTIC EFFECTS ASSIGNED TO THE '// ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1568:13: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('BIAS SET EQUAL TO 1',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:1592:11: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) CALL writTagOneLine(Nio,'h3','@','INPUT PARAMETERS') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:983:11: previous reference to 'writtagoneline' CALL writTagOneLine(65,'h1','center',mattitle(1:22)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1601:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1608:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1615:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1622:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1628:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1635:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1636:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1637:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1380:12: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'em','METHOD: MAXIMUM LIKELIHOOD') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1765:21: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=88_8) vs CHARACTER(KIND=1,LEN=50_8) call wWritln('FREQUENCY OF OBSERVATIONS NOT '// ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:1773:21: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=88_8) vs CHARACTER(KIND=1,LEN=50_8) call wWritln('FREQUENCY OF OBSERVATIONS NOT '// ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:1828:21: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln( ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:2932:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2933:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2944:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2945:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2949:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2957:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2958:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2959:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:2970:23: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) & CALL writTagOneLine(65,'h2','@', ^ ./analts.f:983:11: previous reference to 'writtagoneline' CALL writTagOneLine(65,'h1','center',mattitle(1:22)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3006:19: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3051:19: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('to recover the units of the original '// ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3060:19: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('to recover the units of the original '// ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3067:19: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('to recover the units of the original '// ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3117:15: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('BQ GREATER THAN '//str(1:(ipos-1)), ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3125:13: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('BP GREATER THAN '//str(1:(ipos-1)), ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3133:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('Q GREATER THAN '//str(1:(ipos-1)), ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3141:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('P GREATER THAN '//str(1:(ipos-1)), ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3148:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=88_8) vs CHARACTER(KIND=1,LEN=70_8) CALL wWritln('THE INITIAL VALUES OF THETA AND PHI ARE EQUAL; '// ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3154:7: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=88_8) vs CHARACTER(KIND=1,LEN=72_8) CALL wWritln('THE INITIAL VALUES OF BTHETA AND BPHI ARE EQUAL; '// ^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3159:7: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=88_8) vs CHARACTER(KIND=1,LEN=24_8) CALL wWritln('NOT ENOUGHT OBSERVATIONS',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3160:7: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=88_8) vs CHARACTER(KIND=1,LEN=31_8) CALL wWritln('POSSIBLE ERROR IN SERIES LENGTH',STDERR,Mt2,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3161:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' PLEASE CHECK SERIES LENGTH FOR THE '// ^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:3163:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' '//Titleg,STDERR,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:3216:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('NO STOCHASTIC DECOMPOSITION IS PERFORMED '// ^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:3219:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(Cbr//'P+D+BP+BD>0 IS REQUIRED.'//Cbr,Nio,0,F,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:3220:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln('STOCHASTIC SA SERIES = LINEARIZED SERIES', ^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:3386:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(65,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1380:12: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'em','METHOD: MAXIMUM LIKELIHOOD') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3399:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(65,'@','Model is a pure '// ^ ./analts.f:1380:12: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'em','METHOD: MAXIMUM LIKELIHOOD') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3402:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3428:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=20_8) CALL eWritln('SEATS RUN TIME ERROR',Mt2,STDERR,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3172:9: previous reference to 'ewritln' CALL eWritln('NOT ENOUGH OBSERVATIONS',Mt2,STDERR,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3539:7: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL nWritln('TYPE SHOULD BE EITHER 0 OR 1.',Nio,0,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1280:11: previous reference to 'nwritln' CALL nWritln('FORECAST HORIZON > NZ. FH set to '// ^ ./analts.f:3554:7: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=88_8) vs CHARACTER(KIND=1,LEN=28_8) CALL wWritln('POSSIBLE ERROR IN INPUT FILE',STDERR,Mt2,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1286:11: previous reference to 'wwritln' CALL wWritln('The value entered for NZ is smaller '// ^ ./analts.f:3555:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' PLEASE CHECK SERIES LENGTH FOR THE SERIES:', ^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:3557:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL writln(' '//Titleg,STDERR,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1289:11: previous reference to 'writln' CALL writln('The program will use '//str(1:(ipos-1))// ^ ./analts.f:3615:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(71,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3616:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(71,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:3617:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(71,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./analts.f:1596:11: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o ansub1.o ansub1.f ./ansub1.f:313:13: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=17_8) CALL wWritln(' MATRIX SINGULAR ',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:454:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','INTERPOLATION ALONG OT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:479:13: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=12_8) CALL wWritln('UNSUCCESSFUL',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:583:15: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=12_8) CALL wWritln('UNSUCCESSFUL',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:614:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold',' TAYLOR POINT ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:621:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','SUCCESSFUL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:637:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','SUCCESSFUL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:658:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','STEEPEST DESCENT ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:732:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','INTERPOLATION ALONG OT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:750:13: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=12_8) CALL wWritln('UNSUCCESSFUL',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:768:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold',' TAYLOR POINT ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:775:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','SUCCESSFUL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:824:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:896:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','CORRELATION MATRIX ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:899:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:906:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:919:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:937:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:940:45: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) if ((iprint .gt. 0).and.(out.eq.0)) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:957:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:985:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold',' EXACT FIT ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:1261:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=101_8) CALL wWritln('AR '// ^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:1424:13: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=21_8) CALL wWritln('DETB ZERO OR NEGATIVE',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:2326:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','FORECAST OF TRANSFORMED SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2329:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','FORECAST OF ACTUAL SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2341:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=30_8) CALL mkCaption(Nio,'FORECAST OF TRANSFORMED SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:898:10: previous reference to 'mkcaption' CALL mkCaption(Nio,'CORRELATION MATRIX') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2343:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=25_8) CALL mkCaption(Nio,'FORECAST OF ACTUAL SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:898:10: previous reference to 'mkcaption' CALL mkCaption(Nio,'CORRELATION MATRIX') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2345:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2346:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2351:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2352:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2353:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2373:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2374:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2381:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','FORECAST OF ACTUAL SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2385:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=25_8) CALL mkCaption(Nio,'FORECAST OF ACTUAL SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:898:10: previous reference to 'mkcaption' CALL mkCaption(Nio,'CORRELATION MATRIX') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2397:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2398:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:817:9: previous reference to 'writtag' CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:2504:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=25_8) CALL wWritln('CUBIC ITERATIONS EXCEEDED',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:3187:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=1_8) CALL wWritln(' ',Nio,0,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:3191:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@','THE MODEL IS CHANGED AND RE-ESTIMATED') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:3244:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=1_8) CALL wWritln(' ',Nio,0,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:3247:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@', ^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:3272:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=1_8) CALL wWritln(' ',Nio,0,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:3275:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@', ^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:3301:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=1_8) CALL wWritln(' ',Nio,0,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:3304:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@', ^ ./ansub1.f:317:13: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'strong','MODEL DEGENERATE - DET < 0') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:3471:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=25_8) CALL wWritln('CUBIC ITERATIONS EXCEEDED',Nio,0,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:3845:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=152_8) CALL wWritln('The negative seasonal correlation - '// ^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ ./ansub1.f:3851:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=126_8) CALL wWritln('A pure seasonal MA(1) does not yield '// ^ ./ansub1.f:108:11: previous reference to 'wwritln' CALL wWritln('STARTING VALUES OUT OF RANGE OR BOUNDS IN '// ^ flang-new-17 -c -o ansub10.o ansub10.f ./ansub10.f:469:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(dvec,1,dvec,1,qt1, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:471:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(Cyc,nCyc,THETc,nTHETc,varwnc, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:491:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THSTR0,qstar0,HPth,3,TH_HPth,nTH_HPth) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:509:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hm,nTH_HPth-1,lHm, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:513:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHInp,nPHInP,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:533:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hbc,nTH_HPth-1,lHbc, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:683:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(dvec,1,dvec,1,qt1, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:685:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(Cyc,nCyc,THETc,nTHETc,varwnc, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:698:7: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(PHIm,nPHIm,THETm,nTHETm,Vm, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:700:7: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(PHIbc,nPHIbc,THETbc,nTHETbc,Vbc, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:748:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THSTR0,qstar0,HPth,3,TH_HPth,nTH_HPth) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:750:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THETm,nTHETm,THETnM,nTHETnM,THmTHnm,nTHmTHnm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:751:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(TH_HPth,nTH_HPth,PHIbc,nPHIbc, ^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:761:9: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth_PHIbc,bTHmTHnm,nTH_HPth_PHIbc-1,nTHmTHnm-1, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:763:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THETbc,nTHETbc,THETnBc,nTHETnBc,THmTHnm,nTHmTHnm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:769:9: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth_PHIbc,bTHmTHnm,nTH_HPth_PHIbc-1,nTHmTHnm-1,0, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:799:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hm,nTH_HPth-1,lHm, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:807:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHInpDelta,nPHInpDelta,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:827:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hbc,nTH_HPth-1,lHbc, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:872:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes call CONV(PHIp,nPHIp,HPth,3,PHIm,nPHIm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:882:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes call CONV(PHIps,nPHIps,HPth,3,PHIbc,nPHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:887:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHIbc,nPHIbc,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:895:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(THETbc,nTHETbc,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:907:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHIbc,nPHIbc,S,mq,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1230:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=24_8) CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,24,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1236:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,24,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1241:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,24,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1251:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,hptrend,Nz,subtitle, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1258:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,hpregt,Nz,subtitle,11+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1266:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,6+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1274:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1278:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1291:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=18_8) CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,18,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1297:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,36,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1302:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,36,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1312:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,hptrend,Nz, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1320:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1324:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1348:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=24_8) CALL prttbl1(thisDate,Nfreq,hpregc,Nz,subtitle,24,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1355:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=27_8) CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,26,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1362:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=27_8) CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,26,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1372:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=22_8) CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,21,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1378:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,33,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1383:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,33,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1392:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,hptrend,Nz,subtitle,11+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1397:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,hpregt,Nz,subtitle,11+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1405:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,6+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1413:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,11+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1421:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,11+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1429:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,6+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1437:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1441:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1455:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=18_8) CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,18,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1459:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=16_8) CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle,16,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1465:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,34,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1470:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,34,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1480:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,hptrend,Nz,subtitle, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1488:9: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: constant-length vs non-constant-length character dummy arguments CALL prttbl1(thisDate,Nfreq,temp,Nz,subtitle, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1496:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1500:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1999:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@','ORIGINAL SERIES DENOTES THE '// ^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2003:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@','TREND-CYCLE AND '// ^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2007:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=56_8) CALL writTagOneLine(Nio,'h2','@', ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2085:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio, ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2097:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2098:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2111:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'

') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2112:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=226_8) CALL writTagOneLine(Nio,'li','@','As mentioned before, '// ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2118:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=213_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2124:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=343_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2137:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=94_8) CALL mkTableTag(Nio,'x11','PERIOD-TO-PERIOD RATE T(1,1) FOR '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2140:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.2 '//Cbr// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2146:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=77_8) CALL mkTableTag(Nio,'x11','PERIOD-TO-PERIOD GROWTH T(1,1) '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2149:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.2 '//Cbr// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2159:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2160:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2164:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2162:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,2,0,'col','@','ORIGINAL'//Cbr// ^ ./ansub10.f:2165:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(Nio,0,2,'colgroup', ^ ./ansub10.f:2162:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,2,0,'col','@','ORIGINAL'//Cbr// ^ ./ansub10.f:2168:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2170:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(Nio,2,0,'col','@','ESTIMATE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2162:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,2,0,'col','@','ORIGINAL'//Cbr// ^ ./ansub10.f:2171:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=14_8) CALL mkHeaderCellScope(Nio,2,0,'col','standard error','SER') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2162:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,2,0,'col','@','ORIGINAL'//Cbr// ^ ./ansub10.f:2174:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2175:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2251:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2252:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2253:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2258:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(54,'bold',title) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2260:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=28_8) CALL mkTableTag(54,'x11','Estimates of Rates of Growth') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2261:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(54,'Rates of Growth') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2348:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=54_8) CALL writTagOneLine(Nio,'h3','@', ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2366:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=51_8) CALL mkTableTag(Nio,'x11','ACCUMULATED RATE OF GROWTH '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2368:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.3'//Cbr// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2407:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2408:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2424:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=51_8) CALL mkTableTag(Nio,'x11','ACCUMULATED RATE OF GROWTH '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2426:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.3'//Cbr// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2452:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2453:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2492:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=33_8) CALL writTagOneLine(Nio,'h3','@', ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2654:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=102_8) CALL mkTableTag(Nio,'x11','ESTIMATION ERROR VARIANCE : '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2663:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.4 ESTIMATION ERROR VARIANCE :'// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2668:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=94_8) CALL mkTableTag(Nio,'x11','ESTIMATION ERROR VARIANCE : '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2677:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.4 ESTIMATION ERROR VARIANCE :'// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2698:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2699:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2707:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=221_8) CALL mkTableTag(Nio,'x11','INTERANNUAL RATE OF GROWTH :'// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2712:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.5 INTERANNUAL RATE OF GROWTH :'// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2719:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=196_8) CALL mkTableTag(Nio,'x11','INTERANNUAL RATE OF GROWTH: '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2724:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.5 INTERANNUAL RATE OF GROWTH :'// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2746:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2798:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2799:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2800:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2812:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2813:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=335_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2821:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=276_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2936:12: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=254_8) CALL mkTableTag(Nio,'x11','PRESENT RATE OF ANNUAL GROWTH :'// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2942:12: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.6 PRESENT RATE OF ANNUAL '// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2950:12: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=253_8) CALL mkTableTag(Nio,'x11','PRESENT RATE OF ANNUAL GROWTH :'// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:2956:12: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.6 PRESENT RATE OF ANNUAL '// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:2975:13: warning: Reference to the procedure 'mktable56row' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=15_8) vs CHARACTER(KIND=1,LEN=11_8) call mkTable56Row(Nio, 'TREND-CYCLE', ^ ./ansub10.f:2971:13: previous reference to 'mktable56row' call mkTable56Row(Nio, 'ORIGINAL SERIES', ^ ./ansub10.f:2979:13: warning: Reference to the procedure 'mktable56row' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=15_8) vs CHARACTER(KIND=1,LEN=26_8) call mkTable56Row(Nio, 'SEASONALLY ADJUSTED SERIES', ^ ./ansub10.f:2971:13: previous reference to 'mktable56row' call mkTable56Row(Nio, 'ORIGINAL SERIES', ^ ./ansub10.f:2988:13: warning: Reference to the procedure 'mktable56row' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=15_8) vs CHARACTER(KIND=1,LEN=11_8) call mkTable56Row(Nio, 'TREND-CYCLE', ^ ./ansub10.f:2971:13: previous reference to 'mktable56row' call mkTable56Row(Nio, 'ORIGINAL SERIES', ^ ./ansub10.f:2992:13: warning: Reference to the procedure 'mktable56row' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=15_8) vs CHARACTER(KIND=1,LEN=26_8) call mkTable56Row(Nio, 'SEASONALLY ADJUSTED SERIES', ^ ./ansub10.f:2971:13: previous reference to 'mktable56row' call mkTable56Row(Nio, 'ORIGINAL SERIES', ^ ./ansub10.f:2999:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3000:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3007:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=11_8) CALL writTagOneLine(Nio,'h3','@','D. FORECAST') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1949:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h2','@','PART 5 : RATES OF GROWTH') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3103:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=46_8) CALL mkTableTag(Nio,'x11','RATES OF GROWTH FORECASTS : '// ^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:3105:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(Nio,'TABLE 5.7 RATES OF GROWTH FORECASTS : '// ^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:3153:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3154:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3167:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(54,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3168:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(54,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3169:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(54,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3430:8: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=21_8) call prttbl(thisDate,Mq,tmp,Nz,htmtit(1:nblank(htmtit)),ndec, ^ ./ansub10.f:3396:8: previous reference to 'prttbl' call prttbl(thisDate,Mq,tmp,Nz,htmtit(1:nblank(htmtit)),ndec, ^ ./ansub10.f:3482:8: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=21_8) call prttbl(thisDate,Mq,tmp,Nz,htmtit(1:nblank(htmtit)),ndec, ^ ./ansub10.f:3396:8: previous reference to 'prttbl' call prttbl(thisDate,Mq,tmp,Nz,htmtit(1:nblank(htmtit)),ndec, ^ ./ansub10.f:3596:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=39_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkTableTag(65,'x11','INPUT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2076:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub10.f:3597:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments CALL mkCaption(65,'INPUT') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:2081:9: previous reference to 'mkcaption' CALL mkCaption(Nio, ^ ./ansub10.f:3702:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3703:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkPOneLine(65,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1998:7: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'ub','IN THE TABLES THAT FOLLOW :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3716:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3739:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3767:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:3795:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(65,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1997:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:4000:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=78_8) vs CHARACTER(KIND=1,LEN=65_8) CALL writln('       HPlan set to '// ^ ./ansub10.f:3998:10: previous reference to 'writln' CALL writln('       or setting '// ^ ./ansub10.f:4910:7: warning: Reference to the procedure 'fcast' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object attributes call Fcast(PHIST,THstar,BPHIST,BPstar,bz,nz,wm,ba,na,-1,f,1,nd,0, ^ ./ansub10.f:4903:7: previous reference to 'fcast' call Fcast(PHIST,THstar,BPHIST,BPstar,eZ,nz,wm,a,na,-1,f,1,nd,0, ^ flang-new-17 -c -o ansub11.o ansub11.f ./ansub11.f:170:7: warning: Reference to the procedure 'mult1' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes call mult1(numer,mx,pn+k,thetil,mx,mx,alpha,2*mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:152:7: previous reference to 'mult1' call mult1(phin,pn,pn,d,mx,k,numer,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:410:7: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(gminfn,mx, mx, qs+qn, qs+qn, acgtil,mx,mx,mx,mx, ^ ./ansub11.f:401:7: previous reference to 'mult2' call mult2(acgths,mx, mx, qs, qs, acgthn,mx,mx,qn, qn, ^ ./ansub11.f:423:7: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(tmp2, mx, mx, h, h, acgtil,mx,mx,mx,mx, ^ ./ansub11.f:401:7: previous reference to 'mult2' call mult2(acgths,mx, mx, qs, qs, acgthn,mx,mx,qn, qn, ^ ./ansub11.f:925:7: warning: Reference to the procedure 'fcast' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes call FCAST(Phist,Thstar,bphist,bpstar,bz,Nz,wm,a,Na, ^ ./ansub11.f:894:7: previous reference to 'fcast' call FCAST(Phist,Thstar,bphist,bpstar,z,Nz,wm,a,Na, ^ flang-new-17 -c -o ansub2.o ansub2.f ./ansub2.f:1839:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableTag(Nio,'w60',caption(1:lenCaption)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub2.f:211:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w60','Roots') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub2.f:1866:24: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=6_8) if (lenid.gt.0) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub2.f:231:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub2.f:1914:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=48_8) CALL wWritln('THE LENGTH OF THE MA DOES NOT MATCH WITH '// ^ ./ansub2.f:92:9: previous reference to 'wwritln' CALL wWritln(Cbr//'IFAIL=',Nio,0,T,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub2.f:1921:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Nio,' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub2.f:231:7: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o ansub3.o ansub3.f flang-new-17 -c -o ansub4.o ansub4.f ./ansub4.f:571:9: warning: Reference to the procedure 'prtwkf' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=32_8) vs CHARACTER(KIND=1,LEN=38_8) CALL prtwkf(Nio,wkir,ntd, ^ ./ansub4.f:169:9: previous reference to 'prtwkf' CALL prtwkf(Nio,wktrend,ntd,'TREND-CYCLE COMPONENT ', ^ ./ansub4.f:633:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=113_8) CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:646:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:650:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','SEASONAL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:651:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=25_8) CALL mkHeaderCellScope(Nio,0,2,'colgroup', ^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:653:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:654:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:658:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:659:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:678:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:679:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:681:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8) CALL mkPOneLine(Nio,'@','Check :') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:683:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=93_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:687:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=94_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:691:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=90_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:695:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:696:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=37_8) CALL mkPOneLine(Nio,'@','Note : some examples') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:698:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=158_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:703:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=252_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:710:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=199_8) CALL writTagOneLine(Nio,'li','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:716:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:736:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=143_8) CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:801:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=53_8) CALL mkTableTag(Nio,'w60','Autocorrelation Function of the '// ^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:818:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:829:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:840:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=53_8) CALL mkTableTag(Nio,'w60','Autocorrelation Function of the '// ^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:842:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=103_8) CALL mkCaption(Nio,''// ^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:857:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:866:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:876:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=50_8) CALL mkTableTag(Nio,'w60','Autocorrelation Function of the '// ^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:878:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=61_8) CALL mkCaption(Nio,''// ^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:894:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:904:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:941:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w60','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:944:12: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=75_8) CALL mkCaption(Nio, ^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:948:12: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=63_8) CALL mkCaption(Nio, ^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:962:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:969:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1049:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w60','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:1050:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkCaption(Nio,'IRREGULAR') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:1064:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1073:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1076:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','(***) : Unreliable SE estimate.') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1079:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','(*) IN UNITS OF VAR(A)') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1265:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w80','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:1266:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=53_8) CALL mkCaption(Nio, ^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:1300:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1301:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1310:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w50','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:1311:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=28_8) CALL mkCaption(Nio,'FORECAST OF SEASONAL FACTORS') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:1334:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1335:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1359:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w80','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:1360:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=53_8) CALL mkCaption(Nio, ^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:1394:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1395:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1398:10: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=146_8) vs CHARACTER(KIND=1,LEN=79_8) CALL nWritln('DUE TO THE APPROXIMATION, THE STANDARD ERROR '// ^ ./ansub4.f:1338:10: previous reference to 'nwritln' CALL nWritln('THE APPROXIMATION WILL LIKELY INDUCE'// ^ ./ansub4.f:1868:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=39_8) CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:1905:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=19_8) call prttbl(thisDate,Mq,Paouir,nz,'TRANSITORY OUTLIERS', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:1918:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=17_8) call prttbl(thisDate,Mq,Paouir,nz,'SEASONAL OUTLIERS',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:1931:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=13_8) call prttbl(thisDate,Mq,Paeast,nz,'EASTER EFFECT',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:1944:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=32_8) call prttbl(thisDate,Mq,Patd,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:1958:12: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=32_8) CALL mkTableTag(Nio,'w60','DETERMINISTIC SEASONAL COMPONENT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:1959:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1961:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'col','@',PeriodH(i,mq)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1963:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1964:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1969:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1970:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:1982:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=26_8) call prttbl(thisDate,Mq,tmp,nz,'CALENDAR REGRESSION EFFECT', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:1998:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=29_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2015:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=32_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2032:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=27_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2049:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=38_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2066:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=53_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2080:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=19_8) CALL writTagOneLine(Nio,'h3','@','FINAL DECOMPOSITION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:2095:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'SEPARATE REGRESSION EFFECT', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2106:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=15_8) CALL writTagOneLine(Nio,'h3','@','FINAL COMPONENT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:2143:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=32_8) call prttbl(thisDate,Mq,osa,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2199:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=52_8) call prttbl(thisDate,Mq,osa,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2244:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=17_8) call prttbl(thisDate,Mq,ot,nz,'FINAL TREND-CYCLE',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2289:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=14_8) call prttbl(thisDate,Mq,osc,nz,'FINAL SEASONAL',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2402:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=36_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2407:11: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=23_8) CALL writTagOneLine(Nio,'h3','@','FINAL IRREGULAR FACTORS') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:2408:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold', ^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2539:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=27_8) CALL writTagOneLine(Nio,'h3','@','FORECAST OF FINAL COMPONENT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:2545:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold','THE FORECAST OF THE IRREGULAR '// ^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2648:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'LEVEL SHIFT (X 100)',2, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2651:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'LEVEL SHIFT (X 100)',Ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2669:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRANSITORY OUTLIERS (X100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2672:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRANSITORY OUTLIERS (X100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2691:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'EASTER EFFECT (X 100)',2, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2694:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'EASTER EFFECT (X 100)',Ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2712:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRADING DAY EFFECT (X 100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2715:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRADING DAY EFFECT (X 100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2728:12: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=32_8) CALL mkTableTag(Nio,'w60','DETERMINISTIC SEASONAL COMPONENT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:2729:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2731:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'col','@',PeriodH(i,mq)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2733:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2734:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2738:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2739:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:2751:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=34_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2755:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=34_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2774:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2778:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2797:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2801:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2820:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=35_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2824:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=35_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2843:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=68_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2848:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=68_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2868:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=44_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2872:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=44_8) call prttbl(thisDate,Mq,tmp,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2887:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=19_8) CALL writTagOneLine(Nio,'h3','@','FINAL DECOMPOSITION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:2933:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2937:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2950:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=15_8) CALL writTagOneLine(Nio,'h3','@','FINAL COMPONENT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:2989:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=32_8) call prttbl(thisDate,Mq,osa,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:3045:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=59_8) call prttbl(thisDate,Mq,fosa,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:3090:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=17_8) call prttbl(thisDate,Mq,ot,nz,'FINAL TREND-CYCLE',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:3132:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=14_8) call prttbl(thisDate,Mq,osc,nz,'FINAL SEASONAL',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:3245:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=26_8) call prttbl(thisDate,Mq,tmp,nz,'FINAL TRANSITORY-IRREGULAR', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:3248:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=25_8) CALL writTagOneLine(Nio,'h3','@','FINAL IRREGULAR COMPONENT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:3249:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=37_8) CALL mkPOneLine(Nio,'@', ^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:3403:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=27_8) CALL writTagOneLine(Nio,'h4','@','FORECAST OF FINAL COMPONENT') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:3408:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) CALL mkPOneLine(Nio,'bold', ^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4172:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt1,1) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ ./ansub4.f:4173:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt2,2) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ ./ansub4.f:4174:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt3,3) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ ./ansub4.f:4175:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt4,4) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ ./ansub4.f:4514:8: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=31_8) call prttbl(thisDate,Nfreq,rg,nrg, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:4519:8: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=15_8) call prttbl(thisDate,Nfreq,rg,nrg, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:4544:9: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=32_8) call prttbl(thisDate,Nfreq,rg,nrg, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:4549:9: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=26_8) call prttbl(thisDate,Nfreq,rg,nrg, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:4575:9: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=11_8) vs CHARACTER(KIND=1,LEN=17_8) call prttbl(thisDate,Nfreq,rg,nrg,'FINAL TREND-CYCLE',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:4579:9: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=11_8) call prttbl(thisDate,Nfreq,rg,nrg,'TREND-CYCLE',ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:4865:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8) call mkPOneLine(Nio,'ub','DECOMPOSITION OF VARIANCE (IN %)') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4866:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) call mkPOneLine(Nio,'bold', ^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4868:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w80','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:4869:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=35_8) CALL mkCaption(Nio,'SAMPLE VARIANCE FOR ORIGINAL SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:4890:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5062:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8) call mkPOneLine(Nio,'ub','DECOMPOSITION OF VARIANCE (IN %)') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5064:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) call mkPOneLine(Nio,'bold', ^ ./ansub4.f:680:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5066:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w80','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:5067:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=36_8) CALL mkCaption(Nio,'B) VARIANCE OF THE STATIONARY SERIES') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:5092:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5639:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=81_8) CALL writTagOneLine(Nio,'h3','@','SECOND ORDER MOMENTS '// ^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:5642:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=11_8) CALL writTagOneLine(Nio,'h4','@','1. VARIANCE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:5643:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w50','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:5644:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkCaption(Nio,'1. VARIANCE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:5682:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5687:7: warning: Reference to the procedure 'writtagclass' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=3_8) CALL writTagClass(Nio,'ul','nob') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:682:8: previous reference to 'writtagclass' CALL writTagClass(Nio,'ul','indent') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5699:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5704:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=18_8) CALL writTagOneLine(Nio,'h4','@','2. AUTOCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:5705:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w50','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:5706:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=18_8) CALL mkCaption(Nio,'2. AUTOCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:5771:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5773:7: warning: Reference to the procedure 'writtagclass' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=3_8) CALL writTagClass(Nio,'ul','nob') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:682:8: previous reference to 'writtagclass' CALL writTagClass(Nio,'ul','indent') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5785:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5805:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=19_8) CALL writTagOneLine(Nio,'h4','@','3. CROSSCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:114:8: previous reference to 'writtagoneline' CALL writTagOneLine(Nio,'h3','@', ^ ./ansub4.f:5806:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=113_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableTag(Nio,'w50','@') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:637:8: previous reference to 'mktabletag' CALL mkTableTag(Nio,'w80', ^ ./ansub4.f:5807:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=64_8) vs CHARACTER(KIND=1,LEN=19_8) CALL mkCaption(Nio,'3. CROSSCORRELATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:803:9: previous reference to 'mkcaption' CALL mkCaption(Nio,''// ^ ./ansub4.f:5808:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5812:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'col','@','SEASONAL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5816:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'col','@','TRANSITORY') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5820:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'col','@','IRREGULAR') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5823:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5838:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5839:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'row','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5840:28: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) if (Nthets .gt. 1) CALL mkTableCell(Nio,'center',uotest) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5841:28: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) if (Nthetc .gt. 1) CALL mkTableCell(Nio,'center',uotest2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5842:27: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) if (qt1.ne.ZERO) CALL mkTableCell(Nio,'center',uotest1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5843:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5856:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5857:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'row','@','SEASONAL') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5859:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) & CALL mkTableCell(Nio,'center',uotest) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5860:26: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) if (qt1.ne.ZERO) CALL mkTableCell(Nio,'center',uotest1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5861:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Nio,'center',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5862:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5867:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5868:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8) CALL mkHeaderCellScope(Nio,0,0,'col','@','TRANSITORY') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:649:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5871:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Nio,'center',uotest) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5872:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Nio,'center',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5873:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkTableCell(Nio,'center',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5809:8: previous reference to 'mktablecell' CALL mkTableCell(Nio,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5874:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5879:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5881:8: warning: Reference to the procedure 'writtagclass' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=3_8) CALL writTagClass(Nio,'ul','nob') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:682:8: previous reference to 'writtagclass' CALL writTagClass(Nio,'ul','indent') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:5891:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub4.f:645:8: previous reference to 'writtag' CALL writTag(Nio,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o ansub5.o ansub5.f ./ansub5.f:907:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=118_8) vs CHARACTER(KIND=1,LEN=125_8) CALL mkPOneLine(Nio,'@', ^ ./ansub5.f:901:8: previous reference to 'mkponeline' CALL mkPOneLine(Nio,'@', ^ ./ansub5.f:1023:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=53_8) CALL wWritln('TO FIT BETTER THE SERIES, SEATS HAS CHANGED '// ^ ./ansub5.f:997:9: previous reference to 'wwritln' CALL wWritln('TO PROVIDE A BETTER FIT, SEATS HAS CHANGED '// ^ ./ansub5.f:1074:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=53_8) CALL wWritln('TO FIT BETTER THE SERIES, SEATS HAS CHANGED '// ^ ./ansub5.f:997:9: previous reference to 'wwritln' CALL wWritln('TO PROVIDE A BETTER FIT, SEATS HAS CHANGED '// ^ ./ansub5.f:1098:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=53_8) CALL wWritln('TO FIT BETTER THE SERIES, SEATS HAS CHANGED '// ^ ./ansub5.f:997:9: previous reference to 'wwritln' CALL wWritln('TO PROVIDE A BETTER FIT, SEATS HAS CHANGED '// ^ ./ansub5.f:1121:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=53_8) CALL wWritln('TO FIT BETTER THE SERIES, SEATS HAS CHANGED '// ^ ./ansub5.f:997:9: previous reference to 'wwritln' CALL wWritln('TO PROVIDE A BETTER FIT, SEATS HAS CHANGED '// ^ ./ansub5.f:1143:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=53_8) CALL wWritln('TO FIT BETTER THE SERIES, SEATS HAS CHANGED '// ^ ./ansub5.f:997:9: previous reference to 'wwritln' CALL wWritln('TO PROVIDE A BETTER FIT, SEATS HAS CHANGED '// ^ ./ansub5.f:2405:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2406:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2449:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(36,0,0,'col','@','Trend-Cycle') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2459:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=26_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2470:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(36,0,0,'col','@','Seasonal') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2486:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(36,0,0,'col','@','Calendar') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2508:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkHeaderCellScope(36,0,0,'col','@','Preadjust') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2531:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkHeaderCellScope(36,0,0,'col','@','Cycle') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2550:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2582:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(36,0,0,'col','@','E-Residuals') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2598:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=29_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2615:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=50_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2623:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2625:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2627:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2634:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2891:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2903:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3117:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3118:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3156:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=11_8) CALL mkHeaderCellScope(36,0,0,'col','@','Trend-Cycle') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3172:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=21_8) CALL mkHeaderCellScope(36,0,0,'col','@','Real-Time Trend-Cycle') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3182:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=26_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3199:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=36_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3212:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=53_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3225:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(36,0,0,'col','@','Seasonal') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3241:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8) CALL mkHeaderCellScope(36,0,0,'col','@','Calendar') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3251:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkHeaderCellScope(36,0,0,'col','@','Irregular') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3266:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments CALL mkHeaderCellScope(36,0,0,'col','@',cad1(1:istrlen(cad1))) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3288:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=18_8) CALL mkHeaderCellScope(36,0,0,'col','Preadjusted Factor', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3312:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkHeaderCellScope(36,0,0,'col','@','Cycle') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3331:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3363:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8) CALL mkHeaderCellScope(36,0,0,'col','@','E-Resid') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3379:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=29_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3397:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=50_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3411:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=22_8) CALL mkHeaderCellScope(36,0,0,'col','Stochastic Trend Cycle', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3422:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=37_8) CALL mkHeaderCellScope(36,0,0,'col', ^ ./ansub5.f:2439:8: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(36,0,0,'col','@','Series') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3430:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3432:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=7_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3438:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:3450:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub5.f:2380:8: previous reference to 'writtag' CALL writTag(36,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o ansub7.o ansub7.f flang-new-17 -c -o ansub8.o ansub8.f flang-new-17 -c -o ansub9.o ansub9.f flang-new-17 -c -o antilg.o antilg.f flang-new-17 -c -o apply.o apply.f flang-new-17 -c -o ar30rg.o ar30rg.f flang-new-17 -c -o arfit.o arfit.f flang-new-17 -c -o arflt.o arflt.f flang-new-17 -c -o arima.o arima.f ./arima.f:159:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:324:13: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=20_8) & CALL writTagOneLine(Mt1,'h2','@','MODEL IDENTIFICATION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:331:11: warning: Reference to the procedure 'desreg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=24_8) & CALL desreg('Regression Model (fixed)',Ngrpfx,Gfxttl,Gfxptr, ^ ./arima.f:329:11: previous reference to 'desreg' & CALL desreg('Regression Model',Ngrp,Grpttl,Grpptr,Ngrptl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:557:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=46_8) CALL writln(' value regressors are part of the model.', ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:572:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=16_8) CALL writTagOneLine(Mt1,'h2','@','MODEL DEFINITION') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:582:13: warning: Reference to the procedure 'desreg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=24_8) & CALL desreg('Regression Model (fixed)',Ngrpfx,Gfxttl,Gfxptr, ^ ./arima.f:329:11: previous reference to 'desreg' & CALL desreg('Regression Model',Ngrp,Grpttl,Grpptr,Ngrptl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:603:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=27_8) CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:624:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=64_8) CALL eWritln('An model estimation error has occurred '// ^ ./arima.f:553:11: previous reference to 'ewritln' CALL eWritln('Cannot perform seasonal adjustment if the '// ^ ./arima.f:626:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=66_8) CALL writln(' trading day regressor(s). The error '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:643:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=64_8) CALL eWritln('An model estimation error has occurred '// ^ ./arima.f:553:11: previous reference to 'ewritln' CALL eWritln('Cannot perform seasonal adjustment if the '// ^ ./arima.f:645:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=69_8) CALL writln(' lom/loq/lpyear regressor(s). The '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:661:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=64_8) CALL eWritln('An model estimation error has occurred '// ^ ./arima.f:553:11: previous reference to 'ewritln' CALL eWritln('Cannot perform seasonal adjustment if the '// ^ ./arima.f:663:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=61_8) CALL writln(' an Easter regressor. The error '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:675:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=64_8) CALL eWritln('An model estimation error has occurred '// ^ ./arima.f:553:11: previous reference to 'ewritln' CALL eWritln('Cannot perform seasonal adjustment if the '// ^ ./arima.f:697:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Mt1,'center','All user-defined '// ^ ./arima.f:316:24: previous reference to 'mkponeline' IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:703:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Ng,'center','All user-defined '// ^ ./arima.f:316:24: previous reference to 'mkponeline' IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:715:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=64_8) CALL eWritln('An model estimation error has occurred '// ^ ./arima.f:553:11: previous reference to 'ewritln' CALL eWritln('Cannot perform seasonal adjustment if the '// ^ ./arima.f:717:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=61_8) CALL writln(' an Easter regressor. The error '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:924:11: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=62_8) CALL mkTableTag(Ng,'w60', ^ ./arima.f:917:11: previous reference to 'mktabletag' CALL mkTableTag(Ng,'w60', ^ ./arima.f:927:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=68_8) CALL mkCaption(Ng, ^ ./arima.f:920:11: previous reference to 'mkcaption' CALL mkCaption(Ng, ^ ./arima.f:932:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8) CALL writTagOneLine(Ng,'td','head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:936:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:931:10: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:938:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:931:10: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1001:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=81_8) CALL writln(' coefficients. If these values are '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1004:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=98_8) CALL writln(' then the model comparison statistics '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1007:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=72_8) CALL writln(' ') ^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:931:10: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1087:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8) CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:931:10: previous reference to 'writtag' CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1105:8: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=55_8) vs CHARACTER(KIND=1,LEN=17_8) CALL prtshd('Regression Matrix',Begxy,Sp,Nrxy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:272:8: previous reference to 'prtshd' CALL prtshd( ^ ./arima.f:1134:10: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=55_8) vs CHARACTER(KIND=1,LEN=15_8) CALL prtshd('Model Residuals',idate,Sp,na) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:272:8: previous reference to 'prtshd' CALL prtshd( ^ ./arima.f:1136:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl(idate,Sp,a,na,'Model ',outdec,'xxx') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:278:8: previous reference to 'prttbl' CALL prttbl(Begspn,Sp,trnsrs,Nspobs,'Data',outdec,'xxx') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1140:10: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes CALL savtbl(LESTRS,idate,1,na,Sp,a,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:282:8: previous reference to 'savtbl' CALL savtbl(LTRNDT,Begspn,1,Nspobs,Sp,trnsrs,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1152:11: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=19_8) CALL writTagOneLine(Mt1,'h2','@','DIAGNOSTIC CHECKING') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:1172:11: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=57_8) CALL writTagOneLine(Mt1,'h3','@', ^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:1193:12: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=52_8) CALL writTagOneLine(Mt1,'h3','@','Durbin-Watson '// ^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:1214:12: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=57_8) CALL writTagOneLine(Mt1,'h3','@','Friedman Non-Parametric '// ^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:1232:12: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=41_8) CALL writTagOneLine(Mt1,'h3','@', ^ ./arima.f:320:13: previous reference to 'writtagoneline' & CALL writTagOneLine(Mt1,'h2','@', ^ ./arima.f:1262:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Orig(Pos1ob),Nomnfy,-1,Sto(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1312:11: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Orig(Pos1ob),Nomnfy,-1,Sto(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1317:12: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Usrtad(Frstat+Lsp-1),Nspobs,1,dvec(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1318:12: warning: Reference to the procedure 'divsub' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL divsub(Stoap,Sto,dvec,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1265:10: previous reference to 'divsub' CALL divsub(Sto,Sto,Sprior,Pos1ob,lastpr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1321:12: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Usrpad(Frstap+Lsp-1),Nspobs,1,dvec(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1322:12: warning: Reference to the procedure 'divsub' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL divsub(Stopp,Sto,dvec,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1265:10: previous reference to 'divsub' CALL divsub(Sto,Sto,Sprior,Pos1ob,lastpr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1323:12: warning: Reference to the procedure 'divsub' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL divsub(Stoap,Stoap,dvec,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1265:10: previous reference to 'divsub' CALL divsub(Sto,Sto,Sprior,Pos1ob,lastpr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1350:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,orix) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1355:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(trnsrs,Nobspf,1,orix(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1360:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,ftd) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1361:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fhol) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1362:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fao) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1363:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fls) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1364:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,ftc) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1365:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fso) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1366:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fusr) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1367:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fsea) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1368:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fmv) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1369:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1377:9: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=55_8) vs CHARACTER(KIND=1,LEN=18_8) CALL prtshd('Regression Effects',Begxy,Sp,Nrxy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:272:8: previous reference to 'prtshd' CALL prtshd( ^ ./arima.f:1424:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=55_8) CALL eWritln('Additive seasonal adjustment will not be '// ^ ./arima.f:553:11: previous reference to 'ewritln' CALL eWritln('Cannot perform seasonal adjustment if the '// ^ ./arima.f:1426:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=63_8) CALL writln(' preadjustment factors are derived from '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1428:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=28_8) CALL writln(' for transformed data.',STDERR,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1431:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=47_8) CALL writln(' transform spec and mode of the x11 spec.', ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1437:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=60_8) CALL eWritln('Multiplicative or log additive seasonal '// ^ ./arima.f:553:11: previous reference to 'ewritln' CALL eWritln('Cannot perform seasonal adjustment if the '// ^ ./arima.f:1439:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=71_8) CALL writln(' performed when preadjustment factors '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1441:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=58_8) CALL writln(' model for data which have not been log '// ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1445:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=67_8) vs CHARACTER(KIND=1,LEN=47_8) CALL writln(' transform spec and mode of the x11 spec.', ^ ./arima.f:555:11: previous reference to 'writln' CALL writln(' selection procedure cannot select an '// ^ ./arima.f:1557:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(.not.gudrun)CALL copy(Orig,PLEN,1,Orig2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o armacr.o armacr.f ./armacr.f:59:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./armacr.f:34:7: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./armacr.f:92:14: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableCell(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armacr.f:35:7: previous reference to 'mktablecell' CALL mkTableCell(Mt1,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armacr.f:95:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./armacr.f:34:7: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./armacr.f:101:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armacr.f:34:7: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o armafl.o armafl.f ./armafl.f:220:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Mata,nelta,-1,Mata(neltwp+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armafl.f:79:10: previous reference to 'copy' CALL copy(fulma,nfulma,1,psiwgt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armafl.f:227:8: warning: Reference to the procedure 'arflt' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes CALL arflt(nelta,Arimap,Arimal,Opr,Mdl(AR-1),Mdl(AR)-1, ^ ./armafl.f:213:8: previous reference to 'arflt' CALL arflt(nelta,Arimap,Arimal,Opr,Mdl(DIFF-1),Mdl(DIFF)-1,Mata, ^ ./armafl.f:232:8: warning: Reference to the procedure 'exctma' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL exctma(Nc,Mata(neltwp+1),nelta,Nata-neltwp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armafl.f:145:10: previous reference to 'exctma' CALL exctma(Mxarlg,Matd,neltd,PMATD) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o armats.o armats.f flang-new-17 -c -o arspc.o arspc.f flang-new-17 -c -o autoer.o autoer.f ./autoer.f:20:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=76_8) vs CHARACTER(KIND=1,LEN=58_8) CALL writln('Program will cease execution; warning message '// ^ ./autoer.f:18:8: previous reference to 'writln' CALL writln('Model estimation warnings encountered during '// ^ ./autoer.f:29:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=76_8) vs CHARACTER(KIND=1,LEN=85_8) CALL writln('ARMA'// ^ ./autoer.f:18:8: previous reference to 'writln' CALL writln('Model estimation warnings encountered during '// ^ ./autoer.f:34:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=76_8) vs CHARACTER(KIND=1,LEN=96_8) CALL writln('Problem with MA'// ^ ./autoer.f:18:8: previous reference to 'writln' CALL writln('Model estimation warnings encountered during '// ^ ./autoer.f:37:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=76_8) vs CHARACTER(KIND=1,LEN=66_8) CALL writln(' invert the G''G matrix. Try a '// ^ ./autoer.f:18:8: previous reference to 'writln' CALL writln('Model estimation warnings encountered during '// ^ ./autoer.f:39:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=76_8) vs CHARACTER(KIND=1,LEN=70_8) CALL writln(' parameter constraints. Please send '// ^ ./autoer.f:18:8: previous reference to 'writln' CALL writln('Model estimation warnings encountered during '// ^ ./autoer.f:41:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=76_8) vs CHARACTER(KIND=1,LEN=54_8) CALL writln(' that produced this message '// ^ ./autoer.f:18:8: previous reference to 'writln' CALL writln('Model estimation warnings encountered during '// ^ ./autoer.f:46:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=76_8) vs CHARACTER(KIND=1,LEN=143_8) CALL writln('Problem calculating the theoretical ') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:77:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:96:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkHeaderCellScope(Mt1,0,0,'row','@',Cpobs(j+j1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:80:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./btrit.f:106:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:77:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:112:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:77:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:113:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:59:11: previous reference to 'mkponeline' & CALL mkPOneLine(Mt1,'@','Indirect seasonal adjustment') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:116:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=17_8) CALL mkCaption(Mt1,'Breakdown by Year') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:73:9: previous reference to 'mkcaption' CALL mkCaption(Mt1,'Breakdown by Month') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:124:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25_8) vs CHARACTER(KIND=1,LEN=41_8) CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./btrit.f:80:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./btrit.f:127:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25_8) vs CHARACTER(KIND=1,LEN=40_8) CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./btrit.f:80:9: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(Mt1,0,0,'col','@', ^ ./btrit.f:130:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:77:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:145:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:77:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:147:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:77:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:148:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=6_8) CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./btrit.f:59:11: previous reference to 'mkponeline' & CALL mkPOneLine(Mt1,'@','Indirect seasonal adjustment') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o calcqs.o calcqs.f flang-new-17 -c -o calcqs2.o calcqs2.f flang-new-17 -c -o calcsc.o calcsc.f flang-new-17 -c -o ceilng.o ceilng.f flang-new-17 -c -o change.o change.f flang-new-17 -c -o chisq.o chisq.f flang-new-17 -c -o chitst.o chitst.f flang-new-17 -c -o chkadj.o chkadj.f flang-new-17 -c -o chkchi.o chkchi.f ./chkchi.f:171:17: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) IF(Lprchi)CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkchi.f:132:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkchi.f:172:17: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8) IF(Lsvlch)CALL writTag(Ng,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./chkchi.f:132:8: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkchi.f:208:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=51_8) & CALL mkPOneLine(Mt1,'@', ^ ./chkchi.f:133:8: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o chkcvr.o chkcvr.f flang-new-17 -c -o chkeas.o chkeas.f flang-new-17 -c -o chkmu.o chkmu.f ./chkmu.f:64:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=39_8) CALL writln(' The error message appears below.', ^ ./chkmu.f:62:8: previous reference to 'writln' CALL writln(' term within the automatic model '// ^ ./chkmu.f:95:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=60_8) CALL writln('Model estimation does not converge when constant '// ^ ./chkmu.f:62:8: previous reference to 'writln' CALL writln(' term within the automatic model '// ^ ./chkmu.f:97:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=53_8) CALL writln('Constant term will not be included in regARIMA'// ^ ./chkmu.f:62:8: previous reference to 'writln' CALL writln(' term within the automatic model '// ^ flang-new-17 -c -o chkorv.o chkorv.f ./chkorv.f:200:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgv2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkorv.f:196:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkorv.f:212:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkorv.f:210:9: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o chkrt1.o chkrt1.f flang-new-17 -c -o chkrt2.o chkrt2.f ./chkrt2.f:101:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkHeaderCellScope(imt,0,0,'col','@','Imaginary') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:100:11: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(imt,0,0,'col','@','Real') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:102:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8) CALL mkHeaderCellScope(imt,0,0,'col','@','Modulus') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:100:11: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(imt,0,0,'col','@','Real') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:103:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=9_8) CALL mkHeaderCellScope(imt,0,0,'col','@','Frequency') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:100:11: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(imt,0,0,'col','@','Real') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:104:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(imt,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:98:11: previous reference to 'writtag' CALL writTag(imt,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:109:12: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8) CALL mkHeaderCellScope(imt,0,0,'row','@',thisRoot) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:100:11: previous reference to 'mkheadercellscope' CALL mkHeaderCellScope(imt,0,0,'col','@','Real') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:111:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkTableCell(imt,'right',thisVal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:99:11: previous reference to 'mktablecell' CALL mkTableCell(imt,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:113:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkTableCell(imt,'right',thisVal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:99:11: previous reference to 'mktablecell' CALL mkTableCell(imt,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:115:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkTableCell(imt,'right',thisVal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:99:11: previous reference to 'mktablecell' CALL mkTableCell(imt,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:117:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8) CALL mkTableCell(imt,'right',thisVal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:99:11: previous reference to 'mktablecell' CALL mkTableCell(imt,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:118:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(imt,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:98:11: previous reference to 'writtag' CALL writTag(imt,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:120:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(imt,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkrt2.f:98:11: previous reference to 'writtag' CALL writTag(imt,'') ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o chkrts.o chkrts.f flang-new-17 -c -o chksmd.o chksmd.f flang-new-17 -c -o chktrn.o chktrn.f ./chktrn.f:114:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=50_8) CALL writln(' using the diagnostics in the check '// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:120:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=72_8) CALL writln(' These are often caused by substantial '// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:122:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8) CALL writln(' series, or poor forecasts and/or '// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:124:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=69_8) CALL writln(' fit a regARIMA model to the series '// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:126:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=69_8) CALL writln(' variables to correct for such effects,'// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:128:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8) CALL writln(' any existing regARIMA model, using '// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:130:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=21_8) CALL writln(' check spec.',STDERR,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:133:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=72_8) CALL writln(' These are often caused by substantial'// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:135:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8) CALL writln(' series. Users should fit a regARIMA '// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ ./chktrn.f:137:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=73_8) CALL writln(' using outlier regression variables to '// ^ ./chktrn.f:110:9: previous reference to 'writln' CALL writln(' These are often caused by poor '// ^ flang-new-17 -c -o chkuhg.o chkuhg.f flang-new-17 -c -o chkurt.o chkurt.f flang-new-17 -c -o chkzro.o chkzro.f flang-new-17 -c -o chrt.o chrt.f flang-new-17 -c -o chsppf.o chsppf.f flang-new-17 -c -o chusrg.o chusrg.f flang-new-17 -c -o clrotl.o clrotl.f flang-new-17 -c -o clsgrp.o clsgrp.f flang-new-17 -c -o cmpchi.o cmpchi.f flang-new-17 -c -o cmpstr.o cmpstr.f flang-new-17 -c -o cncrnt.o cncrnt.f ./cncrnt.f:484:13: warning: Reference to the procedure 'mult0' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call mult0(phin, mx, pn, acgths, mx,mx, qs, qs, tmp, mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:419:10: previous reference to 'mult0' call mult0(thetas,mx,qs,thetas,0,mx,0,qs,acgths,mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:607:13: warning: Reference to the procedure 'mult1' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes call mult1(numer,mx,pn+k,thetil,mx,mx,alpha,2*mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:589:13: previous reference to 'mult1' call mult1(phin,mx,pn,d,mx,k,numer,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:669:13: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(gminfn,mx, mx, qs+qn, qs+qn, acgtil, mx, mx, mx, ^ ./cncrnt.f:660:13: previous reference to 'mult2' call mult2(acgths, mx, mx, qs, qs, acgthn, mx, mx, qn, qn, ^ ./cncrnt.f:682:13: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(tmp2, mx, mx, h, h, acgtil, mx, mx, mx, mx, ^ ./cncrnt.f:660:13: previous reference to 'mult2' call mult2(acgths, mx, mx, qs, qs, acgthn, mx, mx, qn, qn, ^ flang-new-17 -c -o cnvfil.o cnvfil.f flang-new-17 -c -o cnvfmt.o cnvfmt.f flang-new-17 -c -o cnvmdl.o cnvmdl.f flang-new-17 -c -o coladd.o coladd.f flang-new-17 -c -o combft.o combft.f ./combft.f:52:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=32_8) vs CHARACTER(KIND=1,LEN=45_8) CALL mkPOneLine(Mt1,'center', ^ ./combft.f:42:12: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'center', ^ ./combft.f:60:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=32_8) vs CHARACTER(KIND=1,LEN=36_8) CALL mkPOneLine(Mt1,'center', ^ ./combft.f:42:12: previous reference to 'mkponeline' CALL mkPOneLine(Mt1,'center', ^ flang-new-17 -c -o compb.o compb.f flang-new-17 -c -o compcrodiag.o compcrodiag.f ./compcrodiag.f:292:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dRedDelT, nRedDelT, mSigUS, nSigUS, mTemp4, nTemp4, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:295:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dLagS, nLagS, mSigUI, nSigUI, mTemp3, nTemp3, pdA ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:305:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvSigW, nInvSigW, mCov, nCov, mTemp7, nTemp7 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:298:7: previous reference to 'mulmat' CALL mulMat( mTemp4, nTemp4, mTemp5, nTemp5, mTemp6, nTemp6 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:341:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dRedDelT, nRedDelT, mSigUS, nSigUS, mTemp4, nTemp4, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:344:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dLagSmT, nLagSmT, mSigUT, nSigUT, mTempA, nTempA, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:356:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvSigW, nInvSigW, mCov, nCov, mTemp7, nTemp7 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:298:7: previous reference to 'mulmat' CALL mulMat( mTemp4, nTemp4, mTemp5, nTemp5, mTemp6, nTemp6 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:389:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dRedDelS, nRedDelS, mSigUT, nSigUT, mTempD, nTempD, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:392:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dLagT, nLagT, mSigUI, nSigUI, mTempF, nTempF, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:403:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvSigW, nInvSigW, mCov, nCov, mTemp7, nTemp7 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:298:7: previous reference to 'mulmat' CALL mulMat( mTemp4, nTemp4, mTemp5, nTemp5, mTemp6, nTemp6 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o compdiag.o compdiag.f flang-new-17 -c -o complagdiag.o complagdiag.f ./complagdiag.f:332:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovIrr, nCovIrr, nPer+1, nCovIrr(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:334:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovSea, nCovSea, nPer+1, nCovSea(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:336:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovTre, nCovTre, nPer+1, nCovTre(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:338:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovSA, nCovSA, nPer+1, nCovSA(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:360:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovIrrNoe, nCovIrrNoe, mLagNoe, nLagNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:365:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovSeaNoe, nCovSeaNoe, mLagSNoe, nLagSNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:370:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovTreNoe, nCovTreNoe, mLagTNoe, nLagTNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:375:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovSANoe, nCovSANoe, mLagTNoe, nLagTNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:669:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:670:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ ./complagdiag.f:708:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:709:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ ./complagdiag.f:747:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:748:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ ./complagdiag.f:786:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:787:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ flang-new-17 -c -o compmse.o compmse.f ./compmse.f:178:9: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mQuadWT, nQuadWT, mQuadUS, nQuadUS, ^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:184:9: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( ZERO, mSeaVar, nSeaVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:157:9: previous reference to 'mulsca' CALL mulSca( MINUSONE, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:208:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mQuadUT, nQuadUT, mQuadWS, nQuadWS, ^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:222:11: warning: Reference to the procedure 'getidm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getIdM( nT, mId, nId ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:183:9: previous reference to 'getidm' CALL getIdM( nT, mSeaVar, nSeaVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:228:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mId, nId, mInvFSIS, nInvFSIS, ^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:231:11: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvFSIS, nInvFSIS, mSeaVar, nSeaVar, ^ ./compmse.f:226:11: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadUS, nQuadUS, ^ ./compmse.f:238:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mId, nId, mFTIT, nFTIT, mFTIT, nFTIT ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:254:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mId, nId, mFTIT, nFTIT, mFTIT, nFTIT ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:258:11: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mFTIT, nFTIT, mSigUI, nSigUI, mTreVar, nTreVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:226:11: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadUS, nQuadUS, ^ flang-new-17 -c -o compmsealt.o compmsealt.f ./compmsealt.f:130:2: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQMatTr( mDel, nDel, mInvSigW, nInvSigW, mQuadW, nQuadW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:126:2: previous reference to 'mulqmattr' CALL mulQMatTr( mDelS, nDelS, mInvSigWS, nInvSigWS, ^ ./compmsealt.f:152:2: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL addMat( mId, nId, mTemp2, nTemp2, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:140:2: previous reference to 'addmat' CALL addMat( mTemp2, nTemp2, mId, nId, mFSISea, nFSISea ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:153:2: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( DBLE(sIrrVar), mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:136:2: previous reference to 'mulsca' CALL mulSca( sIrrVar, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:160:2: warning: Reference to the procedure 'invmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invMat( mTemp2A, nTemp2A, mTemp2, nTemp2 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:120:2: previous reference to 'invmat' CALL invMat( mSigWS, nSigWS, mInvSigWS, nInvSigWS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:162:2: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulMat( mTemp2A, nTemp2A, mFSISea, nFSISea, ^ ./compmsealt.f:161:2: previous reference to 'mulmat' CALL mulMat( mTemp2, nTemp2, mFTITre, nFTITre, mTemp2A, nTemp2A ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:164:2: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( DBLE(sIrrVar), mSeaVar, nSeaVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:136:2: previous reference to 'mulsca' CALL mulSca( sIrrVar, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:171:2: warning: Reference to the procedure 'invmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invMat( mTemp2A, nTemp2A, mTemp2, nTemp2 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:120:2: previous reference to 'invmat' CALL invMat( mSigWS, nSigWS, mInvSigWS, nInvSigWS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:173:2: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulMat( mTemp2A, nTemp2A, mFTITre, nFTITre, ^ ./compmsealt.f:161:2: previous reference to 'mulmat' CALL mulMat( mTemp2, nTemp2, mFTITre, nFTITre, mTemp2A, nTemp2A ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:175:2: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( DBLE(sIrrVar), mTreVar, nTreVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:136:2: previous reference to 'mulsca' CALL mulSca( sIrrVar, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o component.o component.f flang-new-17 -c -o comprevs.o comprevs.f flang-new-17 -c -o constant.o constant.f flang-new-17 -c -o copy.o copy.f flang-new-17 -c -o copycl.o copycl.f flang-new-17 -c -o copylg.o copylg.f flang-new-17 -c -o cormtx.o cormtx.f ./cormtx.f:49:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./cormtx.f:28:7: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./cormtx.f:89:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8) CALL mkTableCell(Mt1,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cormtx.f:29:7: previous reference to 'mktablecell' CALL mkTableCell(Mt1,'head',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cormtx.f:92:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^ ./cormtx.f:28:7: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./cormtx.f:95:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cormtx.f:28:7: previous reference to 'writtag' CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o cornom.o cornom.f flang-new-17 -c -o corplt.o corplt.f ./corplt.f:91:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./corplt.f:71:7: previous reference to 'writtag' CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./corplt.f:159:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8)
        CALL writTag(Mt1,'
') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./corplt.f:71:7: previous reference to 'writtag' CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o covar.o covar.f
flang-new-17   -c -o cpyint.o cpyint.f
flang-new-17   -c -o cpymat.o cpymat.f
flang-new-17   -c -o crosco.o crosco.f
flang-new-17   -c -o ctod.o ctod.f
flang-new-17   -c -o ctodat.o ctodat.f
flang-new-17   -c -o ctoi.o ctoi.f
flang-new-17   -c -o cumnor.o cumnor.f
flang-new-17   -c -o cvcmma.o cvcmma.f
flang-new-17   -c -o cvdttm.o cvdttm.f
flang-new-17   -c -o cvrerr.o cvrerr.f
flang-new-17   -c -o daxpy.o daxpy.f
flang-new-17   -c -o dcopy.o dcopy.f
flang-new-17   -c -o ddot.o ddot.f
flang-new-17   -c -o decibl.o decibl.f
flang-new-17   -c -o delstr.o delstr.f
flang-new-17   -c -o deltst.o deltst.f
./deltst.f:72:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=75_8)
           CALL writln(' Check the x11regression options specified'//
           ^
./deltst.f:67:8: previous reference to 'writln'
         CALL writln(' the residual root mean square error is zero.',
         ^
./deltst.f:76:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=68_8)
           CALL writln(' Check the regARIMA model specified'//
           ^
./deltst.f:67:8: previous reference to 'writln'
         CALL writln(' the residual root mean square error is zero.',
         ^
flang-new-17   -c -o desreg.o desreg.f
flang-new-17   -c -o devlpl.o devlpl.f
flang-new-17   -c -o dfdate.o dfdate.f
flang-new-17   -c -o dgefa.o dgefa.f
flang-new-17   -c -o dgesl.o dgesl.f
flang-new-17   -c -o difflt.o difflt.f
flang-new-17   -c -o dinvnr.o dinvnr.f
flang-new-17   -c -o divgud.o divgud.f
flang-new-17   -c -o divsub.o divsub.f
flang-new-17   -c -o dlrgef.o dlrgef.f
./dlrgef.f:137:10: warning: Reference to the procedure 'delstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=5760_8)
           CALL delstr(igrp,Grpttl,Grpptr,Ngrptl,PGRP)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dlrgef.f:69:8: previous reference to 'delstr'
         CALL delstr(i,Colttl,Colptr,Ncoltl,PB)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o dlrgrw.o dlrgrw.f
flang-new-17   -c -o dlusrg.o dlusrg.f
flang-new-17   -c -o dot.o dot.f
flang-new-17   -c -o dpeq.o dpeq.f
flang-new-17   -c -o dpmpar.o dpmpar.f
flang-new-17   -c -o dppdi.o dppdi.f
flang-new-17   -c -o dppfa.o dppfa.f
flang-new-17   -c -o dppsl.o dppsl.f
flang-new-17   -c -o dsarma.o dsarma.f
flang-new-17   -c -o dscal.o dscal.f
flang-new-17   -c -o dsolve.o dsolve.f
flang-new-17   -c -o dtoc.o dtoc.f
flang-new-17   -c -o easaic.o easaic.f
./easaic.f:110:11: warning: Reference to the procedure 'mkealb' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=155_8) vs CHARACTER(KIND=1,LEN=30_8)
            CALL mkealb(temp,ntmp,Eastst,Easidx,Easvec(j)+Easidx,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./easaic.f:58:10: previous reference to 'mkealb'
       &   CALL mkealb(eastr,neachr,Eastst,Easidx,Easvec(Neasvc)+Easidx,
           ^
./easaic.f:175:17: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments
          IF(Lprt)CALL writTagOneLine(Mt1,'h3','@',
                  ^
./easaic.f:172:17: previous reference to 'writtagoneline'
          IF(Lprt)CALL writTagOneLine(Mt1,'h3','@',
                  ^
./easaic.f:200:10: warning: Reference to the procedure 'mkaicrowreal' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=2_8)
           CALL mkAicRowReal(Ng,'AICC','corrected Akaike information '//
           ^
./easaic.f:194:10: previous reference to 'mkaicrowreal'
           CALL mkAicRowReal(Ng,'AICC','corrected Akaike information '//
           ^
flang-new-17   -c -o easter.o easter.f
flang-new-17   -c -o editor.o editor.f
./editor.f:199:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=58_8)
          CALL wWritln('The program will not generate backcasts for '//
          ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:201:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=30_8)
          CALL writln('         seasonal adjustments.',fhnote,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:277:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL wWritln(ostr(1:nostr)//' regressor ('//igrptl(1:nchr)//
             ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:279:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:285:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL wWritln(ostr(1:nostr)//' regressor ('//igrptl(1:nchr)//
             ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:287:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:293:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL wWritln('Beginning of '//ostr(1:nostr)//' regressor ('//
             ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:296:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:316:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL wWritln(ostr(1:nostr)//' regressor ('//igrptl(1:nchr)//
             ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:318:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:330:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL wWritln('TC regressor ('//igrptl(1:nchr)//
             ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:332:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:344:13: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL wWritln('SO regressor ('//igrptl(1:nchr)//
              ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:346:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:359:13: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL wWritln('End of ramp ('//igrptl(1:nchr)//
              ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:361:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:368:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL wWritln('Beginning of ramp ('//igrptl(1:nchr)//
             ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:370:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('       Change the regARIMA model and rerun.',
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:408:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('      procedure, so the number of forecasts '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:410:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL writln('      been changed to '//clen(1:(ip2-1))//'.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:420:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=78_8)
          CALL nWritln('Since SEATS signal extraction is selected, the '//
          ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:422:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
          CALL writln('      of the automatic model identification '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:473:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=26_8)
           CALL writln('       cannot be replaced.',STDERR,Mt2,F,T)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:493:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=54_8)
            CALL wWritln('Automatic transformation selection cannot be '//
            ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:495:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=45_8)
            CALL writln('         series with zero or negative values.',
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:504:13: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=55_8)
              CALL eWritln('Pseudo-additive seasonal adjustment '//
              ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:506:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=35_8)
              CALL writln('       series with negative values.',STDERR,
              ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:512:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
             CALL eWritln('Multiplicative or log-additive seasonal '//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:514:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
             CALL writln('       done with a series with zero or '//
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:532:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=58_8)
           CALL eWritln('All data values for at least one month are '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:535:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
           CALL eWritln('All data values for at least one quarter are '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:538:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
           CALL eWritln('All data values for at least one period are '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:541:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=42_8)
          CALL writln('       regARIMA model cannot be estimated.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:554:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL wWritln('For '//clim(1:ip2-1)//' months, the '//
            ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:558:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL wWritln('For '//clim(1:ip2-1)//' quarters, the '//
            ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:562:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL wWritln('For '//clim(1:ip2-1)//' periods, the '//
            ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:569:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=73_8)
           CALL writln('          The missing value replacement '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:572:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=71_8)
           CALL writln('          cannot be considered optimal for '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:575:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=69_8)
           CALL writln('          should consider other methods of '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:583:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
         CALL eWritln('All data values read into '//PRGNAM//
         ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:587:8: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=55_8)
         CALL wWritln('All data values read into '//PRGNAM//
         ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:611:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL nWritln('At least one value that is either less than or '//
          ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:613:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=70_8)
          CALL writln('      equal to the missing value code was found '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:615:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=64_8)
          CALL writln('      to be analyzed, but within the time frame '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:617:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=38_8)
          CALL writln('      generated by the regARIMA model.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:619:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL writln('      In this situation, the forecast output '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:622:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=70_8)
           CALL writln('      comparison of the forecasts with the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:624:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=22_8)
           CALL writln('      original series.',fhnote,Mt2,F,T)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:626:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
           CALL writln('      comparison of the transformed forecasts'//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:628:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=48_8)
           CALL writln('      values of the transformed original series.',
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:665:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=71_8)
          CALL eWritln('Must specify a regARIMA model when the Missing'//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:669:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=52_8)
          CALL eWritln('Cannot specify irregular component regression '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:671:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL writln('       regARIMA model when the Missing Value '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:698:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL eWritln('Length of forecast augmented series ('//
         ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:700:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL writln('       limit ('//clim(1:(ip2-1))//').  See '//
         ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:717:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL eWritln('Number of years spanned by the forecast '//
         ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:720:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL writln('       exceeds program limit ('//clim(1:(ip2-1))//
         ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:723:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=24_8)
         CALL writln('       '//DOCNAM//'.',STDERR,Mt2,F,T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:731:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=61_8)
         CALL eWritln('Series to be modelled and/or seasonally adjusted'//
         ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:733:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=38_8)
         CALL writln('       least 3 complete years of data.',
         ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:743:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=54_8)
          CALL eWritln('Cannot specify prior adjustment factors when '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:745:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=40_8)
          CALL writln('       transformation selection is used.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:756:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
          CALL eWritln('Cannot specify fixed regression coefficients '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:758:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=40_8)
          CALL writln('       transformation selection is used.',STDERR,
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:775:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
            CALL eWritln('Additive seasonal adjustment will not be '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:777:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=61_8)
            CALL writln(
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:792:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
            CALL eWritln('Cannot combine prior adjustment factors '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:794:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=62_8)
            CALL writln('       with prior adjustment factors '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:813:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
          CALL eWritln('Leap Year prior adjustment (adjust=lpyear) can'//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:815:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
          CALL writln('       when a log transformation is specified in'//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:819:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
          CALL eWritln('Leap Year prior adjustment (adjust=lpyear) can'//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:821:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=78_8)
          CALL writln('       when a multiplicative seasonal adjustment'//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:828:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8)
           CALL eWritln('Length of month prior adjustment (adjust=lom)'//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:831:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=69_8)
           CALL eWritln('Length of quarter prior adjustment (adjust='//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:834:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
          CALL writln('       when a log transformation is specified '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:839:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
           CALL eWritln('Length of month prior adjustment (adjust=lom)'//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:842:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8)
           CALL eWritln('Length of quarter prior adjustment (adjust='//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:845:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=73_8)
          CALL writln('       when an additive seasonal adjustment is '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:854:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
           CALL eWritln('Length of month prior adjustment (adjust=lom)'//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:857:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8)
           CALL eWritln('Length of quarter prior adjustment (adjust='//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:860:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=62_8)
           CALL eWritln('Leap year prior adjustment (adjust=lpyear)'//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:863:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=71_8)
          CALL writln('       when td or td1coef is specified in the '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:865:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=26_8)
          CALL writln('       x11regression spec.',STDERR,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:902:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=56_8)
          CALL writln('WARNING: Can only use qcheck option with '// 
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:984:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=48_8)
         CALL eWritln('No tables were specified for printing or saving.',
         ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1028:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
          CALL eWritln('Need monthly data to perform aictest for stock'//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1032:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
          CALL eWritln('Need monthly or quarterly data to perform '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1036:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=58_8)
          CALL eWritln('Cannot generate trading variables for aictest '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1038:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
          CALL writln('       Either specify a starting date, or '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1040:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
          CALL writln('       start or modelspan arguments of the '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1048:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=47_8)
          CALL eWritln('Cannot perform an AICtest for stock trading day',
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1050:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=41_8)
          CALL writln('        regressors on a flow time series.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1053:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=61_8)
          CALL eWritln('Cannot perform an AICtest for stock '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1056:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=41_8)
          CALL writln('        regressors on a flow time series.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1061:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=46_8)
          CALL eWritln('Cannot perform an AICtest for flow trading day',
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1063:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=42_8)
          CALL writln('        regressors on a stock time series.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1066:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
          CALL eWritln('Cannot perform an AICtest for flow '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1069:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=42_8)
          CALL writln('        regressors on a stock time series.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1095:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=49_8)
            CALL getstr(AICDIC,aicptr,PAICTD,aicidx,str,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1097:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL eWritln(str(1:nchr)//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1100:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=49_8)
            CALL getstr(AICDIC,aicptr,PAICTD,Itdtst,str,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1101:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('        spec but '//str(1:nchr)//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1103:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=52_8)
            CALL writln(
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1113:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=5760_8)
            CALL getstr(Grpttl,Grpptr,Ngrp,igrp,igrptl,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1133:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=49_8)
            CALL getstr(AICDIC,aicptr,PAICTD,aicidx,str,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1135:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL eWritln(str(1:nchr)//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1138:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=49_8)
            CALL getstr(AICDIC,aicptr,PAICTD,Itdtst,str,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1140:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('        spec but '//str(1:nchr)//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1142:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=52_8)
            CALL writln(
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1161:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=38_8)
            CALL writln('       using the td option of aictest.',
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1164:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
            CALL writln('       using the td1coef option of aictest.',
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1172:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
          CALL eWritln('The aictest argument can only be specified '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1174:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=53_8)
          CALL writln('       estimated using maximum likelihood '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1186:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=65_8)
          CALL eWritln('Length-of-month prior adjustment (adjust=lom'//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1189:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8)
          CALL eWritln('Length-of-quarter prior adjustment (adjust=loq'//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1192:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=49_8)
         CALL getstr(AICDIC,aicptr,PAICTD,Itdtst,str,nchr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1194:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL writln('        when '//str(1:nchr)//
         ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1203:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=62_8)
         CALL eWritln('Leap year prior adjustment (adjust=lpyear'//
         ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1205:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=77_8)
         CALL writln('        when tdstock is given in the aictest '//
         ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1246:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=61_8)
          CALL eWritln('lom was specified in the variables argument '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1249:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
           CALL writln('        spec but loq is given in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1252:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=58_8)
           CALL writln('        spec but lpyear is given in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1255:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=40_8)
          CALL writln('       The type of regressor must agree.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1261:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=61_8)
          CALL eWritln('loq was specified in the variables argument '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1264:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
           CALL writln('        spec but lom is given in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1267:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=58_8)
           CALL writln('        spec but lpyear is given in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1270:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=40_8)
          CALL writln('       The type of regressor must agree.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1276:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
          CALL eWritln('lpyear was specified in the variables argument '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1279:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
           CALL writln('        spec but loq is given in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1282:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
           CALL writln('        spec but lom is given in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1285:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=40_8)
          CALL writln('       The type of regressor must agree.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1295:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8)
             CALL eWritln('AIC test for the length of month regressor '//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1298:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=69_8)
             CALL eWritln('AIC test for the length of quarter '//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1302:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=65_8)
            CALL writln('       the td or td1coef option is given in '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1307:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=65_8)
            CALL eWritln('AIC test for the leap year regressor cannot '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1309:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
            CALL writln('       td or td1coef option is given in the '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1311:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=41_8)
            CALL writln('       power transformation is performed.',
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1321:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8)
           CALL eWritln('AIC test for the length of month regressor '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1324:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=69_8)
           CALL eWritln('AIC test for the length of quarter regressor '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1327:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=61_8)
           CALL eWritln('AIC test for the leap year regressor cannot '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1331:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=60_8)
           CALL writln('       stock trading day is specified in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1334:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=66_8)
           CALL writln('       stock trading day is specified as a '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1346:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=42_8)
          CALL eWritln('Cannot perform an AICtest for stock Easter',
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1348:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=41_8)
          CALL writln('        regressors on a flow time series.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1367:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
            CALL eWritln('easter was specified in the variables '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1370:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
            CALL eWritln('sceaster was specified in the variables '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1373:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=62_8)
           CALL writln('        spec but easterstock'//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1376:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=47_8)
           CALL writln('       The type of Easter regressor must agree.',
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1392:10: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=57_8)
           CALL nWritln('Stable seasonal regressors present in the '//
           ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:1395:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=90_8)
            CALL writln('      Maximum seasonal difference in '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1399:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=82_8)
            CALL writln('      Seasonal difference in automatic model '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1424:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
           CALL eWritln('Too many Easter regressors specified in '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1458:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=65_8)
           CALL eWritln('Must use end-of-month stock trading day with '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1460:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=17_8)
           CALL writln('       regressor.',Mt2,STDERR,F,T)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1461:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=76_8)
           CALL writln('       Specify tdstock[31] in the variables '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1481:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=65_8)
            CALL eWritln('Too many Easter regressors specified in '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1483:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=15_8)
            CALL writln('       aictest.',Mt2,STDERR,F,T)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1521:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=61_8)
          CALL eWritln('Need monthly or quarterly data to perform '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1525:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL eWritln('Cannot generate Easter variables for aictest '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1527:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
          CALL writln('       Either specify a starting date, or '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1529:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
          CALL writln('       start or modelspan arguments of the '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1533:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=56_8)
          CALL eWritln('Cannot generate Easter variables for aictest '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1557:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=56_8)
            CALL eWritln('Prior Trading Day weights cannot be less '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1559:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=42_8)
            CALL writln('       multiplicative seasonal adjustment.',
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1581:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
            CALL eWritln('Prior Trading Day weights cannot be specified'//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1583:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=45_8)
            CALL writln('       transformation selection is performed.',
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1586:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=53_8)
            CALL eWritln('Prior Trading Day weights can only be '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1588:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=58_8)
            CALL writln('       multiplicative or log-additive '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1659:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=61_8)
            CALL eWritln('Need monthly or quarterly data to perform '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1663:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=57_8)
            CALL eWritln('Cannot generate Easter variables for '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1665:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
            CALL writln('       Either specify a starting date, or '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1667:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
            CALL writln('       start or modelspan arguments of the '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1671:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=56_8)
            CALL eWritln('Cannot generate Easter variables for aictest '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1690:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
           CALL eWritln('Stock trading day and holiday irregular '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1692:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=53_8)
           CALL writln(
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1714:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
            CALL eWritln('Cannot specify fixed coefficients for the '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1716:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=62_8)
            CALL writln('       that imply daily weights less than '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1718:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=46_8)
            CALL writln('       reweight=yes in the x11regression spec.',
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1722:11: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
            CALL nWritln('Cannot reweight trading day coefficients if '//
            ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:1724:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=65_8)
            CALL writln('      regressors are fixed; reweighting of '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1726:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=19_8)
            CALL writln('      be performed.',fhnote,Mt2,F,T)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1745:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=55_8)
            CALL eWritln('Cannot specify fixed coefficients for stock '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1747:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=70_8)
            CALL writln('       regressors in the x11regression spec '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1749:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=67_8)
            CALL writln('       trading day factor.  Use the '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1751:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=32_8)
            CALL writln('       stock trading day effect.',STDERR,Mt2,F,T)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1800:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=56_8)
           CALL eWritln(
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1803:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=61_8)
           CALL writln(
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1806:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=46_8)
           CALL writln('       regressors in the irregular regression.',
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1827:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
            CALL eWritln('A stocktd regressor has been specified in '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1829:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=69_8)
            CALL writln('       of x11regression but td1coef is given '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1831:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=52_8)
            CALL writln(
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1836:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=71_8)
            CALL eWritln('A td or td1coef regressors has been '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1839:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=70_8)
            CALL writln('       of x11regression but tdstock is given '//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1841:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=52_8)
            CALL writln(
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1851:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=62_8)
             CALL eWritln('A td regressor has been specified in the '//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1853:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=67_8)
             CALL writln('       x11regression but td1coef is given '//
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1855:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=52_8)
            CALL writln(
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1866:12: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=5760_8)
             CALL getstr(Grpttx,Gpxptr,Ngrptx,Stdgrp,igrptl,nchr)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1892:13: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
              CALL eWritln('Need monthly data to perform aictest for'//
              ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1896:13: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
              CALL eWritln('Need monthly or quarterly data to perform '//
              ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1900:13: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=58_8)
              CALL eWritln('Cannot generate trading variables for '//
              ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1902:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
              CALL writln('       Either specify a starting date, or '//
              ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1904:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
              CALL writln('       start or modelspan arguments of the '//
              ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1916:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=65_8)
             CALL eWritln('Length-of-month prior adjustment (adjust='//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1919:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=67_8)
             CALL eWritln('Length-of-quarter prior adjustment (adjust='//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1922:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=62_8)
             CALL eWritln('Leap year prior adjustment (adjust='//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1925:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=28_8)
            CALL getstr(XAICDC,xaicpt,PXTAIC,Xtdtst,str,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:258:10: previous reference to 'getstr'
           CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:1927:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('        when '//str(1:nchr)//
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1930:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=27_8)
            CALL writln('        x11regression spec.',STDERR,Mt2,F,T)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1942:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=63_8)
           CALL eWritln('Irregular component regression and regARIMA '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1944:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=58_8)
           CALL writln('       day adjustment cannot be specified in '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1963:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=63_8)
           CALL eWritln('Irregular component regression and regARIMA '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1965:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=54_8)
           CALL writln('       adjustment cannot be specified in the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1978:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
          CALL nWritln('An X-11 holiday adjustment cannot be performed '//
          ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:1980:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=53_8)
          CALL writln('      mean is specified for the irregular '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:1986:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=64_8)
           CALL eWritln('Cannot calculate X-11 holiday adjustment for '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1992:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=55_8)
            CALL eWritln('An X-11 holiday adjustment cannot be '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:1998:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=57_8)
            CALL eWritln('An X-11 holiday adjustment cannot be '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2012:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=57_8)
            CALL eWritln('X-11 and regARIMA model-based Easter '//
            ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2014:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=33_8)
            CALL writln('       specified in the same run.',STDERR,Mt2,F,
            ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2020:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=63_8)
           CALL eWritln('X-11 and irregular component regression-'//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2022:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=43_8)
           CALL writln('       cannot be specified in the same run.',
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2027:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=35_8)
           CALL eWritln('No X-11 holiday effect before 1901.',
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2029:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=50_8)
           CALL writln(
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2050:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL eWritln('Must remove both trading day and holiday from '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2052:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL writln('       adjusted series when user-defined mean '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2066:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=54_8)
             CALL eWritln('Negative prior adjustment factors cannot be '//
             ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2068:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=58_8)
             CALL writln('       multiplicative or log-additive '//
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2089:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=62_8)
           CALL eWritln('The series must have at least five complete '//
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2091:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=55_8)
           CALL writln('       yearly totals of the seasonally '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2111:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=49_8)
           CALL eWritln(
           ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2139:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=51_8)
           CALL wWritln(
           ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:2142:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=38_8)
           CALL writln('         series shorter than 20 years.',fhnote,
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2153:12: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=58_8)
             CALL wWritln('The program will not use a 3x15 seasonal '//
             ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:2155:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=38_8)
             CALL writln('         series shorter than 20 years.',fhnote,
             ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2178:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL eWritln('Length of Henderson filter cannot exceed '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2182:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=41_8)
          CALL eWritln('Length of Henderson filter must exceed 1.',
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2188:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=65_8)
          CALL eWritln('Not enough observations in the series to apply '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2190:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL writln('       of length '//clen(1:(ip1-1))//'.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2207:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=54_8)
          CALL eWritln(
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2210:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=29_8)
          CALL writln('       filter option is used.',STDERR,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2275:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=48_8)
          CALL wWritln('Length of sliding span must be at least 3 years.',
          ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:2277:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=54_8)
          CALL writln(
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2331:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL eWritln('Component series '//Serno(1:Nser)//
         ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2333:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=52_8)
         CALL writln(
         ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2516:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL wWritln('Cannot save iteration iformation for regARIMA'//
          ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:2518:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=72_8)
          CALL writln('         when automatic modeling, AIC tests, '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2520:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=27_8)
          CALL writln('         selection is used.',fhnote,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2528:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL eWritln(
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2531:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=73_8)
          CALL writln('       AIC tests, automdl, or automatic '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2541:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=71_8)
          CALL nWritln('Since X-11 seasonal adjustment is not done, '//
          ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:2543:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=53_8)
          CALL writln(
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2552:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=74_8)
         CALL nWritln('Since X-11 seasonal adjustment is not done, '//
         ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:2554:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=72_8)
         CALL writln('      The B1 table will be used for the spectrum'//
         ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2582:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=60_8)
          CALL eWritln('Pseudo-additive seasonal adjustment cannot be '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2584:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL writln('       preadjustment factors are derived from '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2588:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=59_8)
          CALL eWritln('Pseudo-additive seasonal adjustment and '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2590:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL writln('       calendar adjustment cannot be specified '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2594:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=65_8)
          CALL eWritln('Cannot use prior adjustment factors in a '//
          ^
./editor.f:471:10: previous reference to 'ewritln'
           CALL eWritln('Missing value code found outside of model '//
           ^
./editor.f:2596:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=18_8)
          CALL writln('       adjustment.',fhnote,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2599:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL wWritln('Pseudo-additive seasonal adjustment will not '//
          ^
./editor.f:183:10: previous reference to 'wwritln'
           CALL wWritln('The program will not generate backcasts for '//
           ^
./editor.f:2601:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=71_8)
          CALL writln('         of the final seasonal difference '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2603:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=35_8)
          CALL writln('         used to extend the series.',fhnote,Mt2,
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2605:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=68_8)
          CALL writln('         The regARIMA model used to extend '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2607:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=74_8)
          CALL writln('         regressors that result in '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2610:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=73_8)
          CALL writln('         trading day or holiday regressors) '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2612:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=72_8)
          CALL writln('         adjustment is used.  If your model '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2614:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=49_8)
          CALL writln('         noapply argument of the regression spec.',
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2654:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
          CALL nWritln('The maximum regular ARIMA order that the '//
          ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:2656:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=71_8)
          CALL writln('      procedure will identify has been changed '//
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2658:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=53_8)
          CALL writln(
          ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2712:9: warning: Reference to the procedure 'fopen' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=23_8)
          CALL fopen(fil(1:nchr),'user specified metadata',
          ^
./editor.f:2708:9: previous reference to 'fopen'
          CALL fopen(fil(1:nchr),
          ^
./editor.f:2733:10: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=58_8)
           CALL nWritln('The '//PRGNAM//' diagnostic file (.udg) '//
           ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:2737:10: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=56_8)
           CALL nWritln('The '//PRGNAM//' metadata file (.udg) '//
           ^
./editor.f:406:9: previous reference to 'nwritln'
          CALL nWritln('A longer forecast horizon is required by the '//
          ^
./editor.f:2742:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=61_8)
           CALL writln('      in the directory specified by the '//
           ^
./editor.f:185:10: previous reference to 'writln'
           CALL writln('         modelspan that starts after the start '//
           ^
./editor.f:2884:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Fhandl,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:2858:10: previous reference to 'writtag'
           CALL writTag(Fhandl,'
')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./editor.f:2900:9: warning: Reference to the procedure 'fopen' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=24_8)
          CALL fopen(fil(1:nchr),'input specification file',
          ^
./editor.f:2708:9: previous reference to 'fopen'
          CALL fopen(fil(1:nchr),
          ^
./editor.f:2930:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL writTag(Mt1,'
') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:2858:10: previous reference to 'writtag' CALL writTag(Fhandl,'

') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:2938:10: warning: Reference to the procedure 'makeskiplink' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=28_8) CALL makeSkipLink(Mt1,Idxtab,'CONTENTS OF SAVED MODEL FILE',T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:2912:10: previous reference to 'makeskiplink' CALL makeSkipLink(Mt1,Idxtab, ^ ./editor.f:2951:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8) CALL writTag(Mt1,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:2858:10: previous reference to 'writtag' CALL writTag(Fhandl,'

') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:2964:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=31_8) CALL writln('No seasonal adjustment this run',STDERR,Mt2,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:185:10: previous reference to 'writln' CALL writln(' modelspan that starts after the start '// ^ flang-new-17 -c -o eltfcn.o eltfcn.f flang-new-17 -c -o eltlen.o eltlen.f flang-new-17 -c -o emcomp.o emcomp.f flang-new-17 -c -o ends.o ends.f flang-new-17 -c -o endsf.o endsf.f flang-new-17 -c -o enorm.o enorm.f flang-new-17 -c -o entsch.o entsch.f flang-new-17 -c -o errhdr.o errhdr.f flang-new-17 -c -o estrmu.o estrmu.f flang-new-17 -c -o euclid.o euclid.f flang-new-17 -c -o exctma.o exctma.f ./exctma.f:39:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(A(neltq+1),Nelta,1,work(neltq+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:35:9: previous reference to 'copy' CALL copy(A,Nelta,-1,A(neltq+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:55:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(work,neltq,1,A) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:35:9: previous reference to 'copy' CALL copy(A,Nelta,-1,A(neltq+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o extend.o extend.f ./extend.f:50:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=60_8) CALL wWritln('Forecast extension cannot be done for '// ^ ./extend.f:44:11: previous reference to 'wwritln' CALL wWritln('Forecast extension cannot be done for '// ^ ./extend.f:52:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=69_8) CALL writln(' additive seasonal adjustment due to '// ^ ./extend.f:46:11: previous reference to 'writln' CALL writln(' adjustment due to negative values '// ^ ./extend.f:54:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=28_8) CALL writln(' found in forecasts.',STDERR,Mt2,F,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:46:11: previous reference to 'writln' CALL writln(' adjustment due to negative values '// ^ ./extend.f:77:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=60_8) CALL wWritln('Backcast extension cannot be done for '// ^ ./extend.f:44:11: previous reference to 'wwritln' CALL wWritln('Forecast extension cannot be done for '// ^ ./extend.f:79:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=69_8) CALL writln(' additive seasonal adjustment due to '// ^ ./extend.f:46:11: previous reference to 'writln' CALL writln(' adjustment due to negative values '// ^ ./extend.f:81:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=28_8) CALL writln(' found in backcasts.',STDERR,Mt2,F,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:46:11: previous reference to 'writln' CALL writln(' adjustment due to negative values '// ^ ./extend.f:96:21: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Nfcst.gt.0)CALL copy(Fcst,Nfcst,1,Orix(Posfob+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:91:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,1,Orix(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:110:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(bcst2,Nbcst,1,Orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:91:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,1,Orix(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o extsgnl.o extsgnl.f ./extsgnl.f:292:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mFSTIIrr, nFSTIIrr, vY, nY, vIrrEst, nIrrEst ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:308:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWT, nQuadWT, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:309:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp1, nTemp1, vY, nY, vSeaEst, nSeaEst ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:311:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWTp1, nQuadWTp1, ^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:326:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWS, nQuadWS, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:327:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp1, nTemp1, vY, nY, vTreEst, nTreEst ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:329:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWSp1, nQuadWSp1, ^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:343:7: warning: Reference to the procedure 'muldtrmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulDTrMat( dRedDelT, nRedDelT, mIrrPFlt, nIrrPFlt, ^ ./extsgnl.f:256:7: previous reference to 'muldtrmat' CALL mulDTrMat( dDelS, nDelS, mInvSigWS, nInvSigWS, ^ ./extsgnl.f:345:7: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mTrePFlt, nTrePFlt, mSAPFlt, nSAPFlt, ^ ./extsgnl.f:306:7: previous reference to 'addmat' CALL addMat( mQuadUS, nQuadUS, mQuadWT, nQuadWT, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-17 -c -o f3cal.o f3cal.f flang-new-17 -c -o f3gen.o f3gen.f ./f3gen.f:33:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=90_8) CALL mkPOneLine(Nw,'center', ^ ./f3gen.f:29:8: previous reference to 'mkponeline' CALL mkPOneLine(Nw,'center', ^ ./f3gen.f:46:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:48:7: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft','2. The relative contribution '// ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:52:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:63:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:65:7: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft','4. The amount of '// ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:70:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:78:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:81:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:87:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:90:7: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:95:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:98:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:103:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:105:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:110:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:112:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:115:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:117:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:41:7: previous reference to 'mktablecell' CALL mkTableCell(Nw,'headleft', ^ ./f3gen.f:120:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:122:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8) CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:40:7: previous reference to 'writtag' CALL writTag(Nw,'') ^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:123:22: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) IF(.not.Lcmpaq)CALL mkPOneLine(Nw,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:29:8: previous reference to 'mkponeline' CALL mkPOneLine(Nw,'center', ^ ./f3gen.f:148:22: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8) IF(.not.Lcmpaq)CALL mkPOneLine(Nw,'@',' ') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./f3gen.f:29:8: previous reference to 'mkponeline' CALL mkPOneLine(Nw,'center', ^ flang-new-17 -c -o fclose.o fclose.f flang-new-17 -c -o fcnar.o fcnar.f ./fcnar.f:99:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('Problem with MA'// ^ ./fcnar.f:95:10: previous reference to 'wwritln' CALL wWritln(tmpttl(1:ntmpcr)// ^ ./fcnar.f:104:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=70_8) CALL writln(' parameter constraints. Please send '// ^ ./fcnar.f:102:10: previous reference to 'writln' CALL writln(' invert the G''G matrix. Try a '// ^ ./fcnar.f:106:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=54_8) CALL writln(' that produced this message '// ^ ./fcnar.f:102:10: previous reference to 'writln' CALL writln(' invert the G''G matrix. Try a '// ^ ./fcnar.f:110:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments CALL wWritln('Problem calculating the theoretical ') ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./hist.f:141:7: previous reference to 'writtag' CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:172:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:175:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=9_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','@','Frequency')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:173:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','@',
        ^
./hist.f:178:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:185:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:201:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:205:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:216:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=23_8)
         CALL mkCaption(Mt1,'Residuals with |t|>3.25')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:170:7: previous reference to 'mkcaption'
        CALL mkCaption(Mt1,'Tabular Histogram of the Standardized and '//
        ^
./hist.f:217:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:219:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL mkHeaderCellScope(Mt1,0,0,'col','@','t-value')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:173:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','@',
        ^
./hist.f:226:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=4_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:232:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:237:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=51_8)
        CALL mkCaption(Mt1,
        ^
./hist.f:170:7: previous reference to 'mkcaption'
        CALL mkCaption(Mt1,'Tabular Histogram of the Standardized and '//
        ^
./hist.f:245:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./hist.f:141:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o histx.o histx.f
./histx.f:85:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:89:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=7_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','Minimum')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:91:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','25th Percentile')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:93:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=6_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','Median')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:95:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','75th Percentile')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:97:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=7_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','Maximum')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:104:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:107:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=18_8)
          CALL mkHeaderCellScope(Mt1,0,0,'row','@','Standard Deviation')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:113:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:114:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:121:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=32_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:124:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:129:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=7_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','Minimum')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:131:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','25th Percentile')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:133:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=6_8)
            CALL mkHeaderCellScope(Mt1,0,0,'row','@','Median')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:136:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:137:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:142:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkHeaderCellScope(Mt1,0,0,'row','@','75th Percentile')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:144:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:145:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:147:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkHeaderCellScope(Mt1,0,0,'row','@','85th Percentile')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:149:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@','< ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:150:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:154:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkHeaderCellScope(Mt1,0,0,'row','@','60th Percentile')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:156:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@','< ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:157:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:159:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkHeaderCellScope(Mt1,0,0,'row','@','75th Percentile')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:161:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:162:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:166:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkHeaderCellScope(Mt1,0,0,'row','@','75th Percentile')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:168:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:169:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:171:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkHeaderCellScope(Mt1,0,0,'row','@','90th Percentile')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:173:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@','< ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:174:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:178:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=7_8)
          CALL mkHeaderCellScope(Mt1,0,0,'row','@','Maximum')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:180:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:181:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:183:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=18_8)
          CALL mkHeaderCellScope(Mt1,0,0,'row','@','Standard Deviation')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:185:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:82:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:186:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:187:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:189:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkPOneLine(Mt1,'center',
          ^
./histx.f:188:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:269:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:328:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:335:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=24_8)
         CALL mkHeaderCellScope(Mt1,0,0,'col','@',
         ^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:337:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=9_8)
         CALL mkHeaderCellScope(Mt1,0,0,'col','@','Frequency')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:338:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:342:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:358:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:364:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:366:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:373:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=4_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Time')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:374:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',Label(1:Nlbl))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:83:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./histx.f:375:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:387:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:389:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./histx.f:81:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o hndend.o hndend.f
flang-new-17   -c -o hndtrn.o hndtrn.f
flang-new-17   -c -o holday.o holday.f
./holday.f:71:27: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=53_8)
           IF(Ieast(3).eq.0)CALL mkPOneLine(Mt1,'@',
                            ^
./holday.f:67:27: previous reference to 'mkponeline'
           IF(Ieast(1).eq.0)CALL mkPOneLine(Mt1,'@',
                            ^
./holday.f:74:27: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=54_8)
           IF(Ieast(4).eq.0)CALL mkPOneLine(Mt1,'@',
                            ^
./holday.f:67:27: previous reference to 'mkponeline'
           IF(Ieast(1).eq.0)CALL mkPOneLine(Mt1,'@',
                            ^
./holday.f:77:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=31_8)
           CALL mkPOneLine(Mt1,'@','No Easter adjustment performed.')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./holday.f:67:27: previous reference to 'mkponeline'
           IF(Ieast(1).eq.0)CALL mkPOneLine(Mt1,'@',
                            ^
flang-new-17   -c -o holidy.o holidy.f
flang-new-17   -c -o hrest.o hrest.f
flang-new-17   -c -o htmlfortable.o htmlfortable.f
./htmlfortable.f:67:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:66:7: previous reference to 'writtag'
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:98:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=11_8)
         CALL mkHeaderCellScope(Nio,0,2,'colgroup','@','TREND-CYCLE')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:119:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=26_8)
         CALL mkHeaderCellScope(Nio,0,2,'colgroup',
         ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:139:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=26_8)
         CALL mkHeaderCellScope(Nio,0,2,'colgroup',
         ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:147:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
         CALL mkHeaderCellScope(Nio,2,0,'col','@',
         ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:159:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
          CALL mkHeaderCellScope(Nio,2,0,'col','@','SEASONAL FACTORS')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:161:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
          CALL mkHeaderCellScope(Nio,2,0,'col','@','SEASONAL COMPONENT')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:182:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
           CALL mkHeaderCellScope(Nio,2,0,'col',
           ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:186:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
           CALL mkHeaderCellScope(Nio,2,0,'col',
           ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:192:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
           CALL mkHeaderCellScope(Nio,2,0,'col',
           ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:196:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
           CALL mkHeaderCellScope(Nio,2,0,'col','TRANSITORY IRREGULAR',
           ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:201:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:66:7: previous reference to 'writtag'
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:202:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:66:7: previous reference to 'writtag'
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:203:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL mkHeaderCellScope(Nio,0,0,'col','@','FORECAST')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:204:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL mkHeaderCellScope(Nio,0,0,'col','standard error','SE')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:206:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
         CALL mkHeaderCellScope(Nio,0,0,'col','@','FORECAST')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:207:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=3_8)
         CALL mkHeaderCellScope(Nio,0,0,'col',
         ^
./htmlfortable.f:77:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nio,0,2,'colgroup','@',
        ^
./htmlfortable.f:210:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:66:7: previous reference to 'writtag'
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:211:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:66:7: previous reference to 'writtag'
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:252:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Nio,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:66:7: previous reference to 'writtag'
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:254:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:66:7: previous reference to 'writtag'
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:257:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'em','SE  : standard error of the '//
        ^
./htmlfortable.f:256:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:259:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'em','SER : standard error of the revision.')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:256:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:260:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'ub','Note 1 :')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:256:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:261:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'em',
        ^
./htmlfortable.f:256:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:267:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'ub','Note 2 :')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:256:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:268:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'em','SER(Seasonal) = SER (SA Series)')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlfortable.f:256:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o htmlout.o htmlout.f
./htmlout.f:1615:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=138_8) vs CHARACTER(KIND=1,LEN=127_8)
        CALL mkPOneLine(Nio,'center',
        ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:1619:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=138_8) vs CHARACTER(KIND=1,LEN=305_8)
        CALL mkPOneLine(Nio,'center','Developed at the Bank of '//
        ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:1626:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=138_8) vs CHARACTER(KIND=1,LEN=124_8)
        CALL mkPOneLine(Nio,'center','Help from Christophe Planas '//
        ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:1629:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=138_8) vs CHARACTER(KIND=1,LEN=124_8)
        CALL mkPOneLine(Nio,'center',
        ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:1737:9: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=20_8)
          CALL mkHead(io,fname,'SEATS Output Summary',F,1,7,F)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1770:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=28_8)
        CALL mkHead(61,filename,'Trend-Cycle Component Matrix',F,1,1,F)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1785:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1790:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=36_8)
        CALL mkHead(63,filename,'Seasonally Adjusted Component Matrix',F,
        ^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1792:7: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=14_8)
        CALL makDivId(63,'seasadj.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1793:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=36_8)
        CALL mkTableTag(63,'w90','Seasonally Adjusted Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1812:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=25_8)
        CALL mkHead(62,filename,'Seasonal Component Matrix',F,1,1,F)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1813:7: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=15_8)
        CALL makDivId(62,'seasonal.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1814:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=25_8)
        CALL mkTableTag(62,'w90','Seasonal Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1830:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=41_8)
        CALL mkHead(64,filename,
        ^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1832:7: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=15_8)
        CALL makDivId(64,'transirr.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1833:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=41_8)
        CALL mkTableTag(64,'w90',
        ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1848:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(64,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1859:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(idevice,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1860:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL writTag(idevice,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1861:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL writTag(idevice,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1875:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(idevice,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1876:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL writTag(idevice,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1877:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL writTag(idevice,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1880:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(74,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1881:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL writTag(74,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1882:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL writTag(74,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1885:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(76,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1886:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
          CALL writTag(76,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1887:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
          CALL writTag(76,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1972:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=23_8)
         CALL writTag(io,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2127:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=20_8)
        CALL mkHead(65,filename,'Seats General Matrix',F,1,1,F)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2128:7: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=20_8)
        CALL makDivId(65,'seats.general.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2129:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=20_8)
        CALL mkTableTag(65,'w90','Seats General Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2132:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','Title')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2133:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=13_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','Preadjustment')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2134:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=18_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','Model'//Cbr//'Changed')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2135:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=24_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','Approximation'//Cbr//
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2137:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL mkHeaderCellScope(65,0,7,'colgroup','@','Model')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2138:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','SD(a)')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2139:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=10_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','SEAS_NP(a)')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2140:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=21_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','Spectral'//Cbr//
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2142:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=63_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','Check'//Cbr//
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2144:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=65_8)
        CALL mkHeaderCellScope(65,2,0,'col','@','Check'//Cbr//
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2146:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL mkHeaderCellScope(65,0,5,'colgroup','@','Deteriminant'//Cbr//
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2148:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(65,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2150:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=13_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','m  ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2151:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','p ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2152:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','d ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2153:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','q ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2154:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','bp')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2155:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','bd')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2156:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','bq')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2157:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=26_8)
        CALL mkHeaderCellScope(65,0,0,'col','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2159:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=31_8)
        CALL mkHeaderCellScope(65,0,0,'col','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2161:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=31_8)
        CALL mkHeaderCellScope(65,0,0,'col','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2163:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=10_8)
        CALL mkHeaderCellScope(65,0,0,'col','@','TRANSITORY')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2164:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=26_8)
        CALL mkHeaderCellScope(65,0,0,'col','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2166:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(65,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2171:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=31_8)
        CALL mkHead(74,filename,'ARMA Parameters chosen by Seats',F,1,1,F)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2173:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=31_8)
        CALL mkTableTag(74,'w90',
        ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2177:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','TITLE')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2178:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','#NAiter')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2180:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','PHI1')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2181:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','PHI2')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2182:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','PHI3')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2183:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','BPHI')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2188:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','bp')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2189:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','bd')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2190:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','bq')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2191:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','TH1')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2192:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','TH2')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2193:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','TH3')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2194:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','BTH')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2195:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkHeaderCellScope(74,0,0,'col','@','mean')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2196:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(74,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2201:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=20_8)
        CALL mkHead(66,filename,'Seats sparami Matrix',F,1,1,F)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2202:7: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=20_8)
        CALL makDivId(66,'seats.sparami.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2203:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=20_8)
        CALL mkTableTag(66,'w90','Seats sparami Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2205:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(66,3,0,'@','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2206:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(66,2,6,'@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2209:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(66,2,2,'@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2212:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(66,2,2,'@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2215:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(66,0,5,'@','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2218:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(66,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2220:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(66,0,2,'@','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2222:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(66,0,3,'@','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2224:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(66,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2233:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(66,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2238:7: warning: Reference to the procedure 'mkhead' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=180_8) vs CHARACTER(KIND=1,LEN=21_8)
        CALL mkHead(67,filename,'Seats sparamii Matrix',F,1,1,F)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1658:8: previous reference to 'mkhead'
         CALL mkHead(37,fname,fname,F,1,0,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2239:7: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=21_8)
        CALL makDivId(67,'seats.sparamii.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2240:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=21_8)
        CALL mkTableTag(67,'w90','Seats sparamii Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2242:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(67,3,0,'@','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2243:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(67,3,0,'@','@','Title')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2244:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(67,0,4,'@','@',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2246:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(67,2,3,'@','Significant Stochastic '//
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2249:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(67,2,2,'@','@','DAA')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2250:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(67,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2253:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(67,0,2,'@','@','1Y')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2254:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(67,0,2,'@','@','5Y')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2255:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(67,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2261:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(67,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2298:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@','DECOMPOSITION OF THE TREND-CYCLE'//
          ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2301:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@','CYCLE EXTRACTED FROM SEASONALLY '//
          ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2304:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@','CYCLE EXTRACTED FROM ORIGINAL SERIES')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2345:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL writTagOneLine(Nio,'h3','@','PART 6 :'//
        ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2349:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@','"FICTICIOUS" MODEL FOR WK '//
        ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2351:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@',StrFicMo(1:ISTRLEN(StrFicMo)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2352:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkPOneLine(Nio,'bold','ARIMA Models')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2353:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@','Stochastic '//
        ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2356:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@','Stochastic Cycle c(t)')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2357:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@',MoStrCt(1:ISTRLEN(MoStrCt)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2358:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkPOneLine(Nio,'bold','Standard deviation of innovations')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2362:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkPOneLine(Nio,'bold','FINAL ERRORS')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2364:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@','The business Cycle Component got '//
           ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2369:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@','The AR part of Business Cycle '// 
           ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2710:9: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL makDivId(Nio,idstr(1:n0),'pol')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2711:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkTableTag(Nio,'w30',sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2745:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2746:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2786:7: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=25_8)
        CALL makDivId(Nio,'wiener.kolmogorov.filters','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2787:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=55_8)
        CALL mkTableTag(nio,'w60',
        ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2789:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
        CALL mkCaption(nio,'Filters')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2790:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2797:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2798:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2799:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2805:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2806:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2807:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2832:9: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=29_8)
          CALL makDivId(Nio,'sa.concurrent.filter.infinite','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2835:9: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=32_8)
          CALL makDivId(Nio,'trend.concurrent.filter.infinite','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2838:9: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=27_8)
          CALL makDivId(Nio,'sa.concurrent.filter.finite','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2841:9: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=30_8)
          CALL makDivId(Nio,'trend.concurrent.filter.finite','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2843:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkTableTag(Nio,'w60','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2845:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,'WEIGHTS FOR ASYMMETRIC SA CONCURRENT'//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2849:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,'WEIGHTS FOR ASYMMETRIC TREND '//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2853:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,'WEIGHTS FOR ASYMMETRIC SA CONCURRENT'//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2857:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,'WEIGHTS FOR ASYMMETRIC TREND '//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2910:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Nio,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2911:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkPOneLine(Nio,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2926:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(fileUnit,'@','mq=12:   TD= 2.1878 rad '//Cbr//
        ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:2930:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=59_8)
        CALL writln('A- : only peaks detected in AR(30) spectrum '//
        ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:2932:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=61_8)
        CALL writln('-T : only peaks detected using Tukey estimator '//
        ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:2934:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=68_8)
        CALL writln('-- : No peaks detected in AR(30) nor using Tukey '//
        ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:3007:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(fileUnit,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3008:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(fileUnit,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3010:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
          CALL writTag(fileUnit,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3011:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
          CALL writTag(fileUnit,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3040:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkPOneLine(fileUnit,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3165:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
          CALL mkPOneLine(nio,'em','Detected a Spectral peak in '//
          ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3192:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
          CALL mkPOneLine(nio,'em','There is a Spectral peak in '//
          ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3196:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
          CALL mkPOneLine(nio,'em','There is a Spectral peak in '//
          ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3211:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=23_8)
        CALL mkTableTag(nio,'x11','Decomposition : General')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3212:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
        CALL mkCaption(nio,'Decomposition : General')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3250:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=31_8)
        CALL mkTableTag(nio,'x11','Decomposition : Standard Errors')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3251:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
        CALL mkCaption(nio,'Decomposition : Standard Errors')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3287:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=26_8)
        CALL mkTableTag(nio,'x11','Decomposition : Properties')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3288:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
        CALL mkCaption(nio,'Decomposition : Properties')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3338:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=50_8)
         CALL mkTableTag(u,'w70','STOCHASTIC SEASONAL AND TRADING '//
         ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3341:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(u,'STOCHASTIC SEASONAL AND TRADING DAY '//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3344:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(u,'Stochastic seasonal and trading day '//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3360:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(u,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3361:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL writTag(u,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3393:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(u,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3394:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(u,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3395:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkPOneLine(u,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3407:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL writTagOneLine(u,'h3','@','RESIDUAL STOCHASTIC '//
          ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3409:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=23_8)
          CALL mkTableTag(u,'w70','spectral evidence table')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3410:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(u,'Spectral Evidence Table')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3434:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(u,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3435:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(u,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3436:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=60_8)
          CALL writln('1 : EVIDENCE OF RESIDUAL '//
          ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:3438:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=80_8)
          CALL writln('0 : NO EVIDENCE OF RESIDUAL '//
          ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:3441:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL writTagOneLine(u,'h3','@','TRADING DAY EFFECT: '//
          ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3443:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=25_8)
          CALL mkTableTag(u,'w70','trading day spectral test')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3444:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(u,'Trading Day Spectral Test')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3469:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(u,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3470:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(u,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3471:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=60_8)
          CALL writln('1 : EVIDENCE OF RESIDUAL '//
          ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:3473:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=80_8)
          CALL writln('0 : NO EVIDENCE OF RESIDUAL '//
          ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:3488:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL writTagOneLine(u,'h2','@',
        ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3490:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=33_8)
        CALL mkTableTag(u,'w70','Overall Residual Seasonality test')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3491:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
        CALL mkCaption(u,'Overall Residual Seasonality test')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3515:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(u,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3516:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(u,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3517:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=60_8)
        CALL writln('1 : EVIDENCE OF RESIDUAL '//
        ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:3519:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=80_8)
        CALL writln('0 : NO EVIDENCE OF RESIDUAL '//
        ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:3540:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL writTagOneLine(Nio,'h2','@','PART 2 : '//
         ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3542:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkPOneLine(Nio,'@',
         ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3545:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL writTagOneLine(Nio,'h3','@','PARAMETER VALUES : '//
         ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3550:9: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=27_8)
          CALL makDivId(Nio,'model.parameters.true.signs','pol')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1771:7: previous reference to 'makdivid'
        CALL makDivId(61,'trendcycle.matrix','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3551:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=58_8)
          CALL mkTableTag(Nio,'w30',
          ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3553:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3603:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3604:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3664:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL writTagOneLine(Nio,'h4','@','NUMERATOR OF THE MODEL'//
          ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3668:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL writTagOneLine(Nio,'h3','@','FACTORIZATION OF THE '//
          ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3709:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         call USRENTRY(Chins,1,Nchins,1,8,1058)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3727:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         call USRENTRY(Chi,1,Nchi,1,8,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3731:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3735:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=61_8)
           call wWritln('Non-Stationary Autoregressive Trend-Cycle '//
           ^
./htmlout.f:3729:10: previous reference to 'wwritln'
           call wWritln('Stationary Autoregressive Trend-Cycle '//
           ^
./htmlout.f:3737:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3780:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         call USRENTRY(Cycns,1,Ncycns,1,5,1061)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3803:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           call wWritln('Stationary Autoregressive '//
           ^
./htmlout.f:3729:10: previous reference to 'wwritln'
           call wWritln('Stationary Autoregressive Trend-Cycle '//
           ^
./htmlout.f:3806:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3810:10: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           call wWritln('Non-Stationary Autoregressive '//
           ^
./htmlout.f:3729:10: previous reference to 'wwritln'
           call wWritln('Stationary Autoregressive Trend-Cycle '//
           ^
./htmlout.f:3813:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3820:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         call USRENTRY(Psis,1,Npsis,1,16,1151)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3826:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         call USRENTRY(Psins,1,Npsins,1,27,1150)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3833:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=53_8)
          call wWritln('Stationary Autoregressive Seasonal '//
          ^
./htmlout.f:3729:10: previous reference to 'wwritln'
           call wWritln('Stationary Autoregressive Trend-Cycle '//
           ^
./htmlout.f:3835:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3841:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:3854:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         call USRENTRY(Adjns,1,Nadjns,1,8,1153)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3868:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=57_8) vs CHARACTER(KIND=1,LEN=23_8)
          call wWritln(Cbr//'DIMENSION PROBLEM',Nio,0,T,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3729:10: previous reference to 'wwritln'
           call wWritln('Stationary Autoregressive Trend-Cycle '//
           ^
./htmlout.f:3906:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
           CALL mkTableTag(Nio,'w80','AUTOCORRELATIONS OF '//
           ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3912:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3919:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3920:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3921:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3923:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=24_8)
           CALL mkHeaderCellScope(Nio,0,0,'row',
           ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3927:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3929:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=14_8)
           CALL mkHeaderCellScope(Nio,0,0,'row','Standard Error','SE')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3931:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3932:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=16_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3933:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4028:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL writTagOneLine(nio,'h3','@','SEATS RESIDUALS')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4057:13: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
              CALL writTagOneLine(Nio,'h3','@',
              ^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4059:13: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=30_8)
              CALL mkTableTag(Nio,'w70','STUDENTIZED EXTENDED RESIDUALS')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4061:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=18_8)
              CALL mkHeaderCellScope(Nio,0,0,'col','Observation Number',
              ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4063:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
              CALL mkHeaderCellScope(Nio,0,0,'col','@','DATE')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4064:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL mkHeaderCellScope(Nio,0,0,'col','@','VALUE')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4065:13: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL writTag(Nio,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4071:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
            CALL mkHeaderCellScope(Nio,0,0,'row','Observation Number '//
            ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4076:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Nio,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4080:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4081:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4085:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1040)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4087:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1041)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4089:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1045)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4091:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1046)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4093:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1042)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4095:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1043)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4097:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1044)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4099:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1047)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4101:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          call USRENTRY(dvec,1,1,1,1,1048)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4104:11: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
            call USRENTRY(dvec,1,1,1,1,1049)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4109:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=37_8)
          CALL mkTableTag(Nio,'w70',
          ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4111:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,'Test-statistics on extended residuals')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4122:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4123:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4132:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=63_8)
            CALL writln('NON-PARAMETRIC TEST FOR RESIDUAL '//
            ^
./htmlout.f:2928:7: previous reference to 'writln'
        CALL writln('AT : peaks detected in AR(30) and using Tukey '//
        ^
./htmlout.f:4149:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkPOneLine(Nio,'@','EVIDENCE OF EXTENDED '//
            ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4153:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkPOneLine(Nio,'@','EVIDENCE OF EXTENDED '//
            ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4157:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
            CALL mkPOneLine(Nio,'ub','EVIDENCE OF NON-NORMALITY')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4161:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
            CALL mkPOneLine(Nio,'bold','EVIDENCE OF POSITIVE ASYMETRY')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4164:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
            CALL mkPOneLine(Nio,'bold','EVIDENCE OF NEGATIVE ASYMETRY')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4168:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
            CALL mkPOneLine(Nio,'bold','EVIDENCE OF EXCESS KURTOSIS')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4181:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=34_8)
          CALL mkTableTag(Nio,'w70','test of runs on extended residuals')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4182:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,'APPROXIMATE TEST OF RUNS ON EXTENDED '//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4190:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4191:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4216:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkPOneLine(Nio,'@',
            ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4231:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkPOneLine(Nio,'@',
            ^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4257:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=13_8)
              call prttbl(thisDate,Mq,ba,nz,'BACKWARD RESIDUALS',ndec,
              ^
./htmlout.f:4029:9: previous reference to 'prttbl'
          call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec,
          ^
./htmlout.f:4417:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'ub','ROOTS OF '//cad//' POLYNOMIAL')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4437:11: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=4_8)
            CALL mkTableTag(Nio,'w40','Mean')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4439:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
            CALL writTag(Nio,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4440:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkPOneLine(Nio,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4444:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkTableTag(Nio,'w40','ARMA PARAMETERS')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4446:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkTableTag(Nio,'w80','ARMA PARAMETERS')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4448:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=15_8)
           CALL mkTableTag(Nio,'w60','ARMA PARAMETERS')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4450:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4593:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4594:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4595:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4618:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL mkPOneLine(Nio,'ub','CORRELATION MATRIX')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4619:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkTableTag(Nio,'w90','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4627:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4637:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3914:10: previous reference to 'mktablecell'
           CALL mkTableCell(Nio,'head',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4640:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Nio,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4643:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4644:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4658:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=4_8)
          CALL mkTableTag(Nio,'w50','Mean')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4664:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4672:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4674:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4704:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=9_8)
         CALL writTag(Nio,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4755:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
           CALL mkTableTag(Nio,'w80','PARTIAL AUTOCORRELATIONS OF '//
           ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4762:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4769:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4770:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4771:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4773:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=32_8)
           CALL mkHeaderCellScope(Nio,0,0,'row',
           ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4777:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4779:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=14_8)
           CALL mkHeaderCellScope(Nio,0,0,'row','Standard Error','SE')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4781:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4782:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=16_8)
           CALL writTag(Nio,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4783:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkPOneLine(Nio,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4829:16: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object attributes
                 call prttbl(thisDate,Mq,z,nz,'TRANSFORMED SERIES',2,
                 ^
./htmlout.f:4029:9: previous reference to 'prttbl'
          call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec,
          ^
./htmlout.f:4832:16: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object attributes
                 call prttbl(thisDate,Mq,z,nz,'TRANSFORMED SERIES',Ndec,
                 ^
./htmlout.f:4029:9: previous reference to 'prttbl'
          call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec,
          ^
./htmlout.f:4842:12: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=11_8)
             CALL mkTableTag(nio,'w70','Differences')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4843:12: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
             CALL mkCaption(nio,'Differences')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4850:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
             CALL mkPOneLine(Nio,'@',' ')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:4867:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object attributes
               call prttbl(thisDate,Mq,Wdif,NwDif,'DIFFERENCED SERIES',
               ^
./htmlout.f:4029:9: previous reference to 'prttbl'
          call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec,
          ^
./htmlout.f:4870:10: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes
           call USRENTRY(Wdif,1,NwDif,1,mpkp,3001)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:3690:8: previous reference to 'usrentry'
         call USRENTRY(Chis,1,Nchis,1,17,1059)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:4890:16: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object attributes
                 call prttbl(thisDate,Mq,WdifCen,NwDif,htmtit,Ndec,
                 ^
./htmlout.f:4029:9: previous reference to 'prttbl'
          call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec,
          ^
./htmlout.f:4921:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
             CALL mkPOneLine(Nio,'em','MEAN SET EQUAL TO ZERO')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:5030:13: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
              CALL mkPOneLine(Nio,'ub','PARAMETER ESTIMATES')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:5203:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=28_8) vs CHARACTER(KIND=1,LEN=15_8)
          CALL mkTableTag(nio,'w80','ARMA Parameters')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:5204:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(nio,'AR '//
          ^
./htmlout.f:2712:9: previous reference to 'mkcaption'
          CALL mkCaption(Nio,sSummary(1:lsSum))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6240:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6248:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6250:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Nio,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6251:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkPOneLine(Nio,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:6279:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
         CALL mkTableTag(Nio,'w60',
         ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6285:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
         CALL mkTableTag(Nio,'w60','QS Statistics for seasonality '//
         ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6291:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTagOneLine(Nio,'td','head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6292:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=25_8)
        CALL mkHeaderCellScope(Nio,0,0,'col','QS seasonality diagnostic',
        ^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6294:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellScope(Nio,0,0,'col','@','p-value')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6295:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6373:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6374:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
./htmlout.f:6400:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
        CALL mkTableTag(Nio,'w60',
        ^
./htmlout.f:1772:7: previous reference to 'mktabletag'
        CALL mkTableTag(61,'w90','Trend-Cycle Component Matrix')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6406:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTagOneLine(Nio,'td','head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1611:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nio,'h1','center','SEATS+')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6407:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=21_8)
        CALL mkHeaderCellScope(Nio,0,0,'col','@','Residual Seasonality?')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:2131:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(65,2,0,'col','@','n')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6408:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6448:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
        CALL writTag(Nio,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1773:7: previous reference to 'writtag'
        CALL writTag(61,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:6449:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkPOneLine(Nio,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./htmlout.f:1612:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Nio,'center','(based on program Seats, '//
        ^
flang-new-17   -c -o htmlutil.o htmlutil.f
flang-new-17   -c -o idamax.o idamax.f
flang-new-17   -c -o iddiff.o iddiff.f
./iddiff.f:132:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=48_8)
          CALL writln('Estimation error found during unit root testing ',
          ^
./iddiff.f:109:9: previous reference to 'writln'
          CALL writln('        for the reason(s) given above.',
          ^
./iddiff.f:134:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=60_8)
          CALL writln('procedure while fitting inital regARIMA model '//
          ^
./iddiff.f:109:9: previous reference to 'writln'
          CALL writln('        for the reason(s) given above.',
          ^
./iddiff.f:240:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=60_8) vs CHARACTER(KIND=1,LEN=56_8)
            CALL eWritln('Estimation failed to converge during the '//
            ^
./iddiff.f:107:9: previous reference to 'ewritln'
          CALL eWritln('Unable to set up ARIMA model for unit root '//
          ^
./iddiff.f:242:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=26_8)
            CALL writln(' identification procedure.',Mt1,Mt2,F,T)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:109:9: previous reference to 'writln'
          CALL writln('        for the reason(s) given above.',
          ^
./iddiff.f:444:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=25_8)
           CALL mkHeaderCellScope(Ng,0,0,'row','@',
           ^
./iddiff.f:440:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@',
          ^
./iddiff.f:448:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:431:9: previous reference to 'writtag'
          CALL writTag(Mt1,'
')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:449:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:431:9: previous reference to 'writtag'
          CALL writTag(Mt1,'
')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:450:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkPOneLine(Ng,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:426:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@','Results of Unit Root Test for '//
          ^
./iddiff.f:517:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=60_8) vs CHARACTER(KIND=1,LEN=82_8)
             CALL eWritln('Estimation failed to converge during the '//
             ^
./iddiff.f:107:9: previous reference to 'ewritln'
          CALL eWritln('Unable to set up ARIMA model for unit root '//
          ^
./iddiff.f:534:11: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
            CALL copy(Chlxpx,nelt,1,xpxinv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:118:8: previous reference to 'copy'
         CALL copy(Trnsrs,nelta,1,txy)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:558:14: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=24_8)
       &       CALL mkPOneLine(Mt1,'@','Mean is not significant.')
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:426:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@','Results of Unit Root Test for '//
          ^
./iddiff.f:561:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=20_8)
            CALL mkPOneLine(Mt1,'@','Mean is significant.')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./iddiff.f:426:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@','Results of Unit Root Test for '//
          ^
flang-new-17   -c -o idmdl.o idmdl.f
./idmdl.f:43:8: warning: Reference to the procedure 'maxidx' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL maxidx(Dflist(1,2),Nidsdf,itmp,mxnsdf)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idmdl.f:42:8: previous reference to 'maxidx'
         CALL maxidx(Dflist,Niddf,itmp,mxndf)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idmdl.f:74:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=88_8)
          CALL writln('requested from the identify spec, a sample mean '//
          ^
./idmdl.f:54:9: previous reference to 'writln'
          CALL writln('       specified in the diff and sdiff arguments'//
          ^
./idmdl.f:77:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=68_8)
          CALL writln(' effect of the constant regressor specified '//
          ^
./idmdl.f:54:9: previous reference to 'writln'
          CALL writln('       specified in the diff and sdiff arguments'//
          ^
./idmdl.f:164:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          CALL copy(a,Nspobs,1,txy)
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./idmdl.f:44:8: previous reference to 'copy'
         CALL copy(Xy,Nspobs*Ncxy,1,txy)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o idotlr.o idotlr.f
./idotlr.f:195:7: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=85_8)
        CALL setchr('-',85,cdash)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:197:8: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=15_8)
         CALL setchr(' ',15,hdrstr(i))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:371:19: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          IF(Ltstao)CALL setdp(ZERO,ntst,ttst(ibgtst,AO))
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:217:7: previous reference to 'setdp'
        CALL setdp(DNOTST,POTLR,almost)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:372:19: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          IF(Ltstls)CALL setdp(ZERO,ntst,ttst(ibgtst,LS))
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:217:7: previous reference to 'setdp'
        CALL setdp(DNOTST,POTLR,almost)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:373:19: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          IF(Ltsttc)CALL setdp(ZERO,ntst,ttst(ibgtst,TC))
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:217:7: previous reference to 'setdp'
        CALL setdp(DNOTST,POTLR,almost)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:420:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL eWritln('Cannot perform automatic outlier identification'//
          ^
./idotlr.f:388:9: previous reference to 'ewritln'
          CALL eWritln('ARMA parameter roots maybe inside of the '//
          ^
./idotlr.f:422:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=44_8)
          CALL writln(' mean square error of the residuals is zero.',
          ^
./idotlr.f:390:9: previous reference to 'writln'
          CALL writln('        Use conditional estimates as starting '//
          ^
./idotlr.f:425:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=75_8)
           CALL writln(' Check the x11regression options specified '//
           ^
./idotlr.f:390:9: previous reference to 'writln'
          CALL writln('        Use conditional estimates as starting '//
          ^
./idotlr.f:428:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=68_8)
           CALL writln(' Check the regARIMA model specified in the '//
           ^
./idotlr.f:390:9: previous reference to 'writln'
          CALL writln('        Use conditional estimates as starting '//
          ^
./idotlr.f:453:11: warning: Reference to the procedure 'armafl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            CALL armafl(Nspobs,ntype,F,F,otlvar,na,POA,info)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:382:9: previous reference to 'armafl'
          CALL armafl(Nspobs,Ncxy,F,F,txa,na,PXA,info)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:466:10: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL setint(NOTSET,POTLR,mxtype)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:223:7: previous reference to 'setint'
        CALL setint(0,POTLR*Nspobs,tstpt)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:608:20: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:612:18: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=41_8)
                   CALL mkCaption(Mt1,
                   ^
./idotlr.f:601:20: previous reference to 'mkcaption'
                     CALL mkCaption(Mt1,'"Almost" Outliers')
                     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:620:18: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
                   CALL writTag(Mt1,'')
                   ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:630:15: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=16_8)
                CALL setchr(' ',15,outstr(i))
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:653:16: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
                 CALL mkHeaderCellScope(Mt1,0,0,'row','@',
                 ^
./idotlr.f:605:21: previous reference to 'mkheadercellscope'
                      CALL mkHeaderCellScope(Mt1,0,0,'col','@',
                      ^
./idotlr.f:656:17: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
                  CALL mkTableCell(Mt1,'center',outstr(idash))
                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:603:20: previous reference to 'mktablecell'
                     CALL mkTableCell(Mt1,'head',' ')
                     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:658:16: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
                 CALL writTag(Mt1,'')
                 ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:662:15: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
                CALL mkHeaderCellScope(Mt1,0,0,'row','@',
                ^
./idotlr.f:605:21: previous reference to 'mkheadercellscope'
                      CALL mkHeaderCellScope(Mt1,0,0,'col','@',
                      ^
./idotlr.f:665:16: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
                 CALL mkTableCell(Mt1,'center',outstr(idash))
                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:603:20: previous reference to 'mktablecell'
                     CALL mkTableCell(Mt1,'head',' ')
                     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:667:15: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
                CALL writTag(Mt1,'')
                ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:681:14: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=105_8)
               CALL setchr(' ',105,calmst(nalmst))
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:731:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:746:14: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=16_8)
               CALL setchr(' ',15,outstr(i2))
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:770:14: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
               CALL mkHeaderCellScope(Mt1,0,0,'col','@',tmpttl(1:ntmpcr))
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:605:21: previous reference to 'mkheadercellscope'
                      CALL mkHeaderCellScope(Mt1,0,0,'col','@',
                      ^
./idotlr.f:772:15: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
                CALL mkTableCell(Mt1,'center',outstr(idash))
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:603:20: previous reference to 'mktablecell'
                     CALL mkTableCell(Mt1,'head',' ')
                     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:774:14: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
               CALL writTag(Mt1,'')
               ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:801:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:807:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:817:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=25500_8)
            CALL getstr(csinglr,ncsptr,ncsin,i,tmpttl,ntmpcr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:292:9: previous reference to 'getstr'
          CALL getstr(Colttl,Colptr,Ncoltl,icol,tmpttl,ntmpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:821:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=73_8)
            CALL writln(' The effect of this outlier is already '//
            ^
./idotlr.f:390:9: previous reference to 'writln'
          CALL writln('        Use conditional estimates as starting '//
          ^
./idotlr.f:824:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=60_8)
            CALL writln(' (usually user-specified or previously '//
            ^
./idotlr.f:390:9: previous reference to 'writln'
          CALL writln('        Use conditional estimates as starting '//
          ^
./idotlr.f:974:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          CALL copy(Critvl,POTLR,1,oldcvl)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:377:8: previous reference to 'copy'
         CALL copy(Xy,Nspobs*Ncxy,1,txa)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:985:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=28_8)
       &     CALL mkPOneLine(Mt1,'@',' No more outliers identified')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:802:10: previous reference to 'mkponeline'
           CALL mkPOneLine(Mt1,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1030:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=79_8)
            CALL eWritln('regARIMA model estimation in outlier '//
            ^
./idotlr.f:388:9: previous reference to 'ewritln'
          CALL eWritln('ARMA parameter roots maybe inside of the '//
          ^
./idotlr.f:1096:12: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=17_8) vs CHARACTER(KIND=1,LEN=25_8)
             CALL mkCaption(Mt1,'Backward deletion results')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:601:20: previous reference to 'mkcaption'
                     CALL mkCaption(Mt1,'"Almost" Outliers')
                     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1099:12: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=15_8) vs CHARACTER(KIND=1,LEN=23_8)
             CALL mkHeaderCellScope(Mt1,0,0,'col','@',
             ^
./idotlr.f:605:21: previous reference to 'mkheadercellscope'
                      CALL mkHeaderCellScope(Mt1,0,0,'col','@',
                      ^
./idotlr.f:1101:12: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=15_8) vs CHARACTER(KIND=1,LEN=19_8)
             CALL mkHeaderCellScope(Mt1,0,0,'col','@',
             ^
./idotlr.f:605:21: previous reference to 'mkheadercellscope'
                      CALL mkHeaderCellScope(Mt1,0,0,'col','@',
                      ^
./idotlr.f:1103:12: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=15_8) vs CHARACTER(KIND=1,LEN=7_8)
             CALL mkHeaderCellScope(Mt1,0,0,'col','@','t-value')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:605:21: previous reference to 'mkheadercellscope'
                      CALL mkHeaderCellScope(Mt1,0,0,'col','@',
                      ^
./idotlr.f:1104:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1106:12: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
             CALL mkHeaderCellScope(Mt1,0,0,'row','@',
             ^
./idotlr.f:605:21: previous reference to 'mkheadercellscope'
                      CALL mkHeaderCellScope(Mt1,0,0,'col','@',
                      ^
./idotlr.f:1110:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1111:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:602:20: previous reference to 'writtag'
                     CALL writTag(Mt1,'')
                     ^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1198:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Critvl,POTLR,1,oldcvl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:377:8: previous reference to 'copy'
         CALL copy(Xy,Nspobs*Ncxy,1,txa)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1222:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL getstr(OTTDIC,ottptr,POTT,ottind,outstr(1),nstr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:292:9: previous reference to 'getstr'
          CALL getstr(Colttl,Colptr,Ncoltl,icol,tmpttl,ntmpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1224:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkPOneLine(Mt1,'@','No '//
          ^
./idotlr.f:802:10: previous reference to 'mkponeline'
           CALL mkPOneLine(Mt1,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1257:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=25_8)
           CALL prttbl(Begtst,Sp,ttst(ibgtst,AO),ntst,
           ^
./idotlr.f:887:10: previous reference to 'prttbl'
           CALL prttbl(Begtst,Sp,ttst(ibgtst,AO),ntst,
           ^
./idotlr.f:1279:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=25_8)
            CALL prttbl(idate,Sp,ttst(ibgls,LS),nlstst,
            ^
./idotlr.f:887:10: previous reference to 'prttbl'
           CALL prttbl(Begtst,Sp,ttst(ibgtst,AO),ntst,
           ^
./idotlr.f:1292:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=25_8)
           CALL prttbl(Begtst,Sp,ttst(ibgtst,TC),ntctst,
           ^
./idotlr.f:887:10: previous reference to 'prttbl'
           CALL prttbl(Begtst,Sp,ttst(ibgtst,AO),ntst,
           ^
./idotlr.f:1333:9: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=15_8)
          CALL setchr(' ',15,hdrstr(1))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1334:9: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=15_8)
          CALL setchr(' ',15,hdrstr(2))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1335:9: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=15_8)
          CALL setchr(' ',15,hdrstr(3))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1369:10: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=25500_8) vs CHARACTER(KIND=1,LEN=100_8)
           CALL setchr(' ',100,savstr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:186:7: previous reference to 'setchr'
        CALL setchr(' ',25*PLEN,csinglr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:1441:33: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        IF(.not.Lfatal.and.lalmst)CALL copy(oldcvl,POTLR,1,Critvl)
                                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./idotlr.f:377:8: previous reference to 'copy'
         CALL copy(Xy,Nspobs*Ncxy,1,txa)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o idpeak.o idpeak.f
flang-new-17   -c -o inbtwn.o inbtwn.f
flang-new-17   -c -o indx.o indx.f
flang-new-17   -c -o initdg.o initdg.f
./initdg.f:66:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL setdp(DNOTST,3,Vartrn)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./initdg.f:62:8: previous reference to 'setdp'
         CALL setdp(DNOTST,5,Prsetr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./initdg.f:67:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL setdp(DNOTST,3,Varsad)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./initdg.f:62:8: previous reference to 'setdp'
         CALL setdp(DNOTST,5,Prsetr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./initdg.f:68:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL setdp(DNOTST,3,Varirr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./initdg.f:62:8: previous reference to 'setdp'
         CALL setdp(DNOTST,5,Prsetr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./initdg.f:69:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL setdp(DNOTST,3,Varsea)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./initdg.f:62:8: previous reference to 'setdp'
         CALL setdp(DNOTST,5,Prsetr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o initst.o initst.f
flang-new-17   -c -o inpter.o inpter.f
flang-new-17   -c -o insdbl.o insdbl.f
./insdbl.f:20:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copy(Subvec,nielt,1,Vec(Ptrvec(Ielt-1)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./insdbl.f:18:7: previous reference to 'copy'
        CALL copy(Vec(Ptrvec(Ielt-1)),nrest,-1,Vec(Ptrvec(Ielt)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o insint.o insint.f
./insint.f:20:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL cpyint(Subvec,nielt,1,Vec(Ptrvec(Ielt-1)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./insint.f:18:7: previous reference to 'cpyint'
        CALL cpyint(Vec(Ptrvec(Ielt-1)),nrest,-1,Vec(Ptrvec(Ielt)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o inslg.o inslg.f
./inslg.f:21:7: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copylg(Subvec,nielt,1,Vec(Ptrvec(Ielt-1)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./inslg.f:19:7: previous reference to 'copylg'
        CALL copylg(Vec(Ptrvec(Ielt-1)),nrest,-1,Vec(Ptrvec(Ielt)))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o insopr.o insopr.f
./insopr.f:50:8: warning: Reference to the procedure 'insptr' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes
         CALL insptr(T,Ncoef,iopr,POPR,PARIMA,Opr,Nopr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./insopr.f:43:7: previous reference to 'insptr'
        CALL insptr(F,1,Optype,3,POPR,Mdl,i)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o insort.o insort.f
flang-new-17   -c -o insptr.o insptr.f
./insptr.f:38:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=37_8)
         CALL eWritln('No room to add new element to vector.',
         ^
./insptr.f:33:8: previous reference to 'ewritln'
         CALL eWritln('Too many elements for vector.',STDERR,Mt2,T,T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./insptr.f:48:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL eWritln('Not able to insert element in position '//
         ^
./insptr.f:33:8: previous reference to 'ewritln'
         CALL eWritln('Too many elements for vector.',STDERR,Mt2,T,T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o insstr.o insstr.f
flang-new-17   -c -o intfmt.o intfmt.f
flang-new-17   -c -o intgpg.o intgpg.f
flang-new-17   -c -o intinp.o intinp.f
flang-new-17   -c -o intlst.o intlst.f
flang-new-17   -c -o intrpp.o intrpp.f
flang-new-17   -c -o intsrt.o intsrt.f
flang-new-17   -c -o invfcn.o invfcn.f
flang-new-17   -c -o invmat.o invmat.f
flang-new-17   -c -o ipmpar.o ipmpar.f
flang-new-17   -c -o iscrfn.o iscrfn.f
flang-new-17   -c -o isdate.o isdate.f
flang-new-17   -c -o isfals.o isfals.f
flang-new-17   -c -o isfixd.o isfixd.f
flang-new-17   -c -o ispeak.o ispeak.f
flang-new-17   -c -o ispos.o ispos.f
flang-new-17   -c -o issame.o issame.f
flang-new-17   -c -o istrue.o istrue.f
flang-new-17   -c -o itoc.o itoc.f
flang-new-17   -c -o itrerr.o itrerr.f
./itrerr.f:34:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=25_8)
         CALL writln(' during history analysis.',fh2,Mt2,T,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./itrerr.f:29:8: previous reference to 'writln'
         CALL writln(' during sliding spans analysis.',fh2,Mt2,T,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./itrerr.f:44:7: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=43_8)
        CALL writln(' Rerun program trying one of the following:',
        ^
./itrerr.f:29:8: previous reference to 'writln'
         CALL writln(' during sliding spans analysis.',fh2,Mt2,T,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./itrerr.f:50:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=61_8) vs CHARACTER(KIND=1,LEN=74_8)
         CALL mkPOneLine(Mt2,'@',
         ^
./itrerr.f:41:10: previous reference to 'mkponeline'
       &   CALL mkPOneLine(Mt2,'@',
           ^
./itrerr.f:65:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=74_8)
         CALL writln('See '//MDLSEC//' of the '//PRGNAM//' '//DOCNAM//
         ^
./itrerr.f:29:8: previous reference to 'writln'
         CALL writln(' during sliding spans analysis.',fh2,Mt2,T,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o kfcn.o kfcn.f
flang-new-17   -c -o kwtest.o kwtest.f
./kwtest.f:77:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=18_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','@','Degrees of Freedom')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:75:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','@',
        ^
./kwtest.f:78:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=17_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','@','Probability level')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:75:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','@',
        ^
./kwtest.f:79:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:74:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:85:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:74:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:86:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:74:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:89:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL mkPOneLine(Mt1,'center',
         ^
./kwtest.f:69:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./kwtest.f:93:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
        CALL mkPOneLine(Mt1,'center',
        ^
./kwtest.f:69:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o lassol.o lassol.f
flang-new-17   -c -o lendp.o lendp.f
flang-new-17   -c -o lex.o lex.f
flang-new-17   -c -o lgnrmc.o lgnrmc.f
flang-new-17   -c -o lkshnk.o lkshnk.f
flang-new-17   -c -o lmdif.o lmdif.f
flang-new-17   -c -o lmpar.o lmpar.f
flang-new-17   -c -o loadxr.o loadxr.f
./loadxr.f:39:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Rgvrtp,PB,1,Rgxvtp)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:44:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Bgusrx,2,1,Bgxusx)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:46:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Begxy,2,1,Xbegxy)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:52:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Tddate,2,1,Xtddat)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:73:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Rgxvtp,PB,1,Rgvrtp)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:74:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Usxtyp,PUREG,1,Usrtyp)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:78:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Xuserx,PUSERX,1,Userx)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:40:8: previous reference to 'copy'
         CALL copy(B,PB,1,Bx)
         ^^^^^^^^^^^^^^^^^^^^
./loadxr.f:81:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Bgxusx,2,1,Bgusrx)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:83:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Xbegxy,2,1,Begxy)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:89:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Xtddat,2,1,Tddate)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./loadxr.f:36:8: previous reference to 'cpyint'
         CALL cpyint(Colptr(0),PB+1,1,Clxptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o locshk.o locshk.f
./locshk.f:74:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(ZERO,PLEN,temps)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./locshk.f:51:7: previous reference to 'setdp'
        CALL setdp(ZERO,PSP*PSP,w)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o logar.o logar.f
flang-new-17   -c -o logdet.o logdet.f
flang-new-17   -c -o lomaic.o lomaic.f
./lomaic.f:122:11: warning: Reference to the procedure 'mkaicrowreal' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=5_8)
       &    CALL mkAicRowReal(Ng,'AICC','corrected Akaike information '//
            ^
./lomaic.f:114:11: previous reference to 'mkaicrowreal'
       &    CALL mkAicRowReal(Ng,'AICC','corrected Akaike information '//
            ^
./lomaic.f:207:11: warning: Reference to the procedure 'mkaicrowreal' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=5_8)
       &    CALL mkAicRowReal(Ng,'AICC','corrected Akaike information'//
            ^
./lomaic.f:114:11: previous reference to 'mkaicrowreal'
       &    CALL mkAicRowReal(Ng,'AICC','corrected Akaike information '//
            ^
./lomaic.f:234:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=19_8)
          CALL writTag(Mt1,' *****
')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./lomaic.f:215:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./lomaic.f:259:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=19_8)
          CALL writTag(Mt1,' *****
')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./lomaic.f:215:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o lstpth.o lstpth.f
flang-new-17   -c -o makadj.o makadj.f
flang-new-17   -c -o makotl.o makotl.f
flang-new-17   -c -o makttl.o makttl.f
./makttl.f:53:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=73_8) vs CHARACTER(KIND=1,LEN=57_8)
         CALL writln('       along with any data files used, to '//
         ^
./makttl.f:51:8: previous reference to 'writln'
         CALL writln('       Please send the input spec file that '//
         ^
./makttl.f:130:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: assumed-length character vs explicit-length character
          CALL getstr(LBFDIC,lbfptr,PLBF,Tblptr,clbl,nclbl)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./makttl.f:38:7: previous reference to 'getstr'
        CALL getstr(Ttldic,Ttlptr,Pttl,Tblptr-Dsptr,Tblttl,Ntbttl)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./makttl.f:132:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: assumed-length character vs explicit-length character
          CALL getstr(LBLDIC,lblptr,PLBL,Tblptr,clbl,nclbl)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./makttl.f:38:7: previous reference to 'getstr'
        CALL getstr(Ttldic,Ttlptr,Pttl,Tblptr-Dsptr,Tblttl,Ntbttl)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o map.o map.f
./map.f:21:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=33_8)
         CALL inpter(PERROR,Pos,'Map output string not long enough',T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./map.f:18:8: previous reference to 'inpter'
         CALL inpter(PERROR,Pos,'Map cset''s not the same length',T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o matrix.o matrix.f
flang-new-17   -c -o maxidx.o maxidx.f
flang-new-17   -c -o maxlag.o maxlag.f
flang-new-17   -c -o maxvec.o maxvec.f
flang-new-17   -c -o mdlchk.o mdlchk.f
flang-new-17   -c -o mdlfix.o mdlfix.f
flang-new-17   -c -o mdlinp.o mdlinp.f
flang-new-17   -c -o mdlint.o mdlint.f
./mdlint.f:18:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
        CALL intlst(PMDL,Mdl,Nmdl)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlint.f:15:7: previous reference to 'intlst'
        CALL intlst(POPR,Opr,Nopr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlint.f:24:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(ZERO,PACM,Armacm)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlint.f:23:7: previous reference to 'setdp'
        CALL setdp(ZERO,PARIMA,Arimap)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mdlmch.o mdlmch.f
flang-new-17   -c -o mdlset.o mdlset.f
./mdlset.f:56:8: warning: Reference to the procedure 'setopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
         CALL setopr(DIFF,dfcoef,dflag,dffix,ndcoef,Nrdiff,naimcf,argok,
         ^
./mdlset.f:40:8: previous reference to 'setopr'
         CALL setopr(AR,arcoef,arlag,arfix,Nrar,itmp,naimcf,argok,Locok)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlset.f:64:9: warning: Reference to the procedure 'iscrfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL iscrfn(MULT,1,dflag,ndcoef,PDIFOR,dflag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlset.f:43:9: previous reference to 'iscrfn'
          CALL iscrfn(MULT,1,arlag,Nrar,PORDER,arlag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlset.f:66:24: warning: Reference to the procedure 'insopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          IF(.not.Lfatal)CALL insopr(DIFF,dfcoef,dflag,dffix,ndcoef,
                         ^
./mdlset.f:45:24: previous reference to 'insopr'
          IF(.not.Lfatal)CALL insopr(AR,arcoef,arlag,arfix,Nrar,1,
                         ^
./mdlset.f:108:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=38_8)
           CALL eWritln('Order of the AR operator is too large.',
           ^
./mdlset.f:60:9: previous reference to 'ewritln'
          CALL eWritln('Order of the differencing operator is too '//
          ^
./mdlset.f:119:8: warning: Reference to the procedure 'setopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
         CALL setopr(DIFF,dfcoef,dflag,dffix,ndcoef,Nsdiff,naimcf,argok,
         ^
./mdlset.f:40:8: previous reference to 'setopr'
         CALL setopr(AR,arcoef,arlag,arfix,Nrar,itmp,naimcf,argok,Locok)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlset.f:128:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=67_8)
          CALL eWritln('Cannot have a seasonal difference with seasonal'//
          ^
./mdlset.f:60:9: previous reference to 'ewritln'
          CALL eWritln('Order of the differencing operator is too '//
          ^
./mdlset.f:138:9: warning: Reference to the procedure 'iscrfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL iscrfn(MULT,Sp,dflag,ndcoef,PDIFOR,dflag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlset.f:43:9: previous reference to 'iscrfn'
          CALL iscrfn(MULT,1,arlag,Nrar,PORDER,arlag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mdlset.f:140:24: warning: Reference to the procedure 'insopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          IF(.not.Lfatal)CALL insopr(DIFF,dfcoef,dflag,dffix,ndcoef,
                         ^
./mdlset.f:45:24: previous reference to 'insopr'
          IF(.not.Lfatal)CALL insopr(AR,arcoef,arlag,arfix,Nrar,1,
                         ^
./mdlset.f:153:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=53_8)
          CALL eWritln('Order of the full differencing operator is too '//
          ^
./mdlset.f:60:9: previous reference to 'ewritln'
          CALL eWritln('Order of the differencing operator is too '//
          ^
./mdlset.f:179:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=38_8)
           CALL eWritln('Order of the MA operator is too large.',
           ^
./mdlset.f:60:9: previous reference to 'ewritln'
          CALL eWritln('Order of the differencing operator is too '//
          ^
flang-new-17   -c -o mdssln.o mdssln.f
flang-new-17   -c -o meancra.o meancra.f
flang-new-17   -c -o medabs.o medabs.f
flang-new-17   -c -o mflag.o mflag.f
flang-new-17   -c -o minim2.o minim2.f
flang-new-17   -c -o mkback.o mkback.f
./mkback.f:127:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=72_8) vs CHARACTER(KIND=1,LEN=53_8)
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:124:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:130:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=72_8) vs CHARACTER(KIND=1,LEN=56_8)
           CALL mkCaption(Mt1,
           ^
./mkback.f:124:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:133:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=72_8) vs CHARACTER(KIND=1,LEN=29_8)
           CALL mkCaption(Mt1,'Backcasts and Standard Errors')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:124:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:175:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Backcast')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:174:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:176:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=19_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Standard'//Cbr//
           ^
./mkback.f:174:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:178:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:96:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:189:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
           CALL mkHeaderCellScope(Mt1,0,0,'row','@',str(1:ndtchr))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:174:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:192:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:96:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:216:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:96:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:246:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL eltfcn(ff,Ubcst,Adj(Adj1st-Nbcst),Nbcst,PFCST,Ubcst)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:248:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,lwrci,Adj(Adj1st-Nbcst),Nbcst,PFCST,lwrci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:249:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,uprci,Adj(Adj1st-Nbcst),Nbcst,PFCST,uprci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:253:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL eltfcn(ff,Ubcst,X11hol(Pos2),Nbcst,PFCST,Ubcst)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:255:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,lwrci,X11hol(Pos2),Nbcst,PFCST,lwrci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:256:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,uprci,X11hol(Pos2),Nbcst,PFCST,uprci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:260:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL eltfcn(ff,Ubcst,Facxhl(Pos2),Nbcst,PFCST,Ubcst)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:262:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,lwrci,Facxhl(Pos2),Nbcst,PFCST,lwrci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:263:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,uprci,Facxhl(Pos2),Nbcst,PFCST,uprci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:267:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL eltfcn(ff,Ubcst,Stptd(Pos2),Nbcst,PFCST,Ubcst)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:269:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,lwrci,Stptd(Pos2),Nbcst,PFCST,lwrci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:270:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,uprci,Stptd(Pos2),Nbcst,PFCST,uprci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:230:8: previous reference to 'eltfcn'
         CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:342:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkTableTag(Mt1,'w70',ttlfct(1:nttlcr))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:122:9: previous reference to 'mktabletag'
          CALL mkTableTag(Mt1,'w70','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:345:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,
            ^
./mkback.f:124:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:349:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,
            ^
./mkback.f:124:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:354:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,ttlfct(1:nttlcr)//Cbr//
            ^
./mkback.f:124:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:357:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,ttlfct(1:nttlcr))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:124:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Backcasts and Standard Errors of '//
           ^
./mkback.f:373:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Lower')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:174:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:374:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Backcast')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:174:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:375:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Upper')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:174:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:376:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:96:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:399:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
           CALL mkHeaderCellScope(Mt1,0,0,'row','@',str(1:ndtchr))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:174:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:404:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:96:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:432:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkback.f:96:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mkealb.o mkealb.f
./mkealb.f:33:7: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=2_8)
        CALL setchr(' ',2,cwin)
        ^^^^^^^^^^^^^^^^^^^^^^^
./mkealb.f:14:7: previous reference to 'setchr'
        CALL setchr(' ',30,eastr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mkfreq.o mkfreq.f
flang-new-17   -c -o mklnlb.o mklnlb.f
./mklnlb.f:18:7: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=6_8)
        CALL setchr(' ',6,Lnudg)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mklnlb.f:17:7: previous reference to 'setchr'
        CALL setchr(' ',30,Lnstr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mklnlb.f:19:7: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=50_8)
        CALL setchr(' ',6,Lnabb)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mklnlb.f:17:7: previous reference to 'setchr'
        CALL setchr(' ',30,Lnstr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mkmdsn.o mkmdsn.f
flang-new-17   -c -o mkmdsx.o mkmdsx.f
flang-new-17   -c -o mkmetahtmlfile.o mkmetahtmlfile.f
./mkmetahtmlfile.f:57:7: warning: Reference to the procedure 'makeanchor' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL makeAnchor(fh0,-1,'out')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:55:7: previous reference to 'makeanchor'
        CALL makeAnchor(fh0,0,'skip')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:58:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL writTagOneLine(fh0,'h2','@',
        ^
./mkmetahtmlfile.f:32:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(fh0,'h1','center',
         ^
./mkmetahtmlfile.f:98:7: warning: Reference to the procedure 'makeanchor' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL makeAnchor(fh0,-1,'err')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:55:7: previous reference to 'makeanchor'
        CALL makeAnchor(fh0,0,'skip')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:99:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL writTagOneLine(fh0,'h2','@',
        ^
./mkmetahtmlfile.f:32:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(fh0,'h1','center',
         ^
./mkmetahtmlfile.f:133:7: warning: Reference to the procedure 'makeanchor' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=3_8)
        CALL makeAnchor(fh0,-1,'log')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:55:7: previous reference to 'makeanchor'
        CALL makeAnchor(fh0,0,'skip')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:134:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL writTagOneLine(fh0,'h2','@',
        ^
./mkmetahtmlfile.f:32:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(fh0,'h1','center',
         ^
./mkmetahtmlfile.f:164:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL writTag(fh0,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:52:7: previous reference to 'writtag'
        CALL writTag(fh0,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:165:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL writTag(fh0,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkmetahtmlfile.f:52:7: previous reference to 'writtag'
        CALL writTag(fh0,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mkoprt.o mkoprt.f
flang-new-17   -c -o mkotky.o mkotky.f
./mkotky.f:94:10: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=80_8) vs CHARACTER(KIND=1,LEN=10_8)
           CALL setchr(' ',10,thisdt)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkotky.f:92:9: previous reference to 'setchr'
          CALL setchr(' ',80,outstr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mkpeak.o mkpeak.f
flang-new-17   -c -o mkshdr.o mkshdr.f
flang-new-17   -c -o mkspky.o mkspky.f
flang-new-17   -c -o mksplb.o mksplb.f
flang-new-17   -c -o mkssky.o mkssky.f
./mkssky.f:23:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkTableCell(Mt1,'@','Observation not included in sliding'//
         ^
./mkssky.f:22:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head','NT')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:25:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:21:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:32:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@','A sign change can be found for '//
          ^
./mkssky.f:22:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head','NT')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:35:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkTableCell(Mt1,'center','IE')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:22:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head','NT')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:44:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:21:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:50:8: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkTableCell(Mt1,'@','Span values for this observation '//
         ^
./mkssky.f:22:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head','NT')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:52:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:21:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:63:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:21:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:72:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:21:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:75:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mkssky.f:21:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mkstlb.o mkstlb.f
flang-new-17   -c -o mkspst.o mkspst.f
flang-new-17   -c -o mktdlb.o mktdlb.f
./mktdlb.f:16:7: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=80_8)
        CALL setchr(' ',80,tdabb)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mktdlb.f:15:7: previous reference to 'setchr'
        CALL setchr(' ',30,tdstr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mktdlb.f:56:8: warning: Reference to the procedure 'itoc' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=80_8)
         CALL itoc(Aicstk,tdabb,ntdabb)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mktdlb.f:52:8: previous reference to 'itoc'
         CALL itoc(Aicstk,tdstr,ntdchr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mlist.o mlist.f
./mlist.f:107:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=42_8) vs CHARACTER(KIND=1,LEN=26_8)
         CALL mkHeaderCellScope(Mt1,0,0,'col','@',f(1)//Cbr//f(3))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:104:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','@',
         ^
./mlist.f:109:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=42_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','@','Footnote')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:104:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','@',
         ^
./mlist.f:110:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:96:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:133:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
            CALL mkTableCell(Mt1,'nowrap',thisOb(1:nblank(thisOb)))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:97:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:135:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',thisOb(1:nblank(thisOb)))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:97:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:138:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:97:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:145:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkTableCell(Mt1,'nowrap',thisOb(1:nblank(thisOb)))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:97:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:147:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',thisOb(1:nblank(thisOb)))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:97:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:150:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:97:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:156:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:96:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:158:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:96:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:174:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
         CALL mkTableTag(Mt1,'w70','@')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:91:7: previous reference to 'mktabletag'
        CALL mkTableTag(Mt1,'w90','Sliding spans analysis of '//
        ^
./mlist.f:175:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=26_8)
         CALL mkCaption(Mt1,'Footnotes for Table S 7.'//Ext)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mlist.f:94:7: previous reference to 'mkcaption'
        CALL mkCaption(Mt1,'Table S 7.'//Ext)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mltpos.o mltpos.f
flang-new-17   -c -o month.o month.f
flang-new-17   -c -o mstest.o mstest.f
./mstest.f:133:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=23_8)
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
        ^
./mstest.f:129:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
        ^
./mstest.f:137:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=16_8)
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Mean'//Cbr//'Square')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:129:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
        ^
./mstest.f:140:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','F-value')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:129:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
        ^
./mstest.f:141:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:125:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:146:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=13_8)
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Between Years')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:129:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
        ^
./mstest.f:170:7: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=21_8)
        CALL mkTableCellHeader(Mt1,thisHdr,'center',thisVal//fstar)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:153:7: previous reference to 'mktablecellheader'
        CALL mkTableCellHeader(Mt1,thisHdr,'center',thisVal)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:171:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:125:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:176:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=19_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Error')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:129:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
        ^
./mstest.f:194:7: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkTableCell(Mt1,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:126:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:195:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:125:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:197:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:125:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:201:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL mkPOneLine(Mt1,'center',fstar//
         ^
./mstest.f:122:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:206:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL mkPOneLine(Mt1,'center',fstar//
         ^
./mstest.f:122:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mstest.f:211:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
        CALL mkPOneLine(Mt1,'center',fstar//
        ^
./mstest.f:122:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mulmat.o mulmat.f
flang-new-17   -c -o mulqmat.o mulqmat.f
./mulqmat.f:133:8: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL mulMat( mTemp, nTemp, mA, nA, mC, nC )
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mulqmat.f:58:8: previous reference to 'mulmat'
         CALL mulMat( mA, nA, mB, nB, mTemp, nTemp )
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o mulref.o mulref.f
flang-new-17   -c -o mulsca.o mulsca.f
flang-new-17   -c -o mult.o mult.f
flang-new-17   -c -o mult0.o mult0.f
flang-new-17   -c -o mult1.o mult1.f
flang-new-17   -c -o mult2.o mult2.f
flang-new-17   -c -o mxpeak.o mxpeak.f
flang-new-17   -c -o nblank.o nblank.f
flang-new-17   -c -o newest.o newest.f
flang-new-17   -c -o nextk.o nextk.f
flang-new-17   -c -o nmlmdl.o nmlmdl.f
flang-new-17   -c -o nofcst.o nofcst.f
flang-new-17   -c -o nrmtst.o nrmtst.f
./nrmtst.f:70:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:71:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:105:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=21_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',' Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:107:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:116:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=21_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',' Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:118:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:125:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=21_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',' Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:127:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:137:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=10_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',' Geary''s a')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:138:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=87_8) vs CHARACTER(KIND=1,LEN=84_8)
          CALL mkTableCell(Ng,'@','Cannot compute the significance of '//
          ^
./nrmtst.f:67:9: previous reference to 'mktablecell'
          CALL mkTableCell(Ng,'@','Cannot compute the significance of '//
          ^
./nrmtst.f:140:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:141:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:144:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=99_8) vs CHARACTER(KIND=1,LEN=96_8)
         CALL nWritln('The program cannot compute the significance of '//
         ^
./nrmtst.f:74:8: previous reference to 'nwritln'
         CALL nWritln('The program cannot compute the significance of '//
         ^
./nrmtst.f:169:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=10_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',' Geary''s a')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:170:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=87_8) vs CHARACTER(KIND=1,LEN=86_8)
          CALL mkTableCell(Ng,'@','Cannot compute the significance of '//
          ^
./nrmtst.f:67:9: previous reference to 'mktablecell'
          CALL mkTableCell(Ng,'@','Cannot compute the significance of '//
          ^
./nrmtst.f:172:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:173:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:176:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=99_8) vs CHARACTER(KIND=1,LEN=98_8)
         CALL nWritln('The program cannot compute the significance of '//
         ^
./nrmtst.f:74:8: previous reference to 'nwritln'
         CALL nWritln('The program cannot compute the significance of '//
         ^
./nrmtst.f:193:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:202:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:212:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=9_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',' Kurtosis')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:213:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=87_8) vs CHARACTER(KIND=1,LEN=74_8)
          CALL mkTableCell(Ng,'@','Cannot perform hypothesis tests '//
          ^
./nrmtst.f:67:9: previous reference to 'mktablecell'
          CALL mkTableCell(Ng,'@','Cannot compute the significance of '//
          ^
./nrmtst.f:215:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:216:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:219:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=99_8) vs CHARACTER(KIND=1,LEN=86_8)
         CALL nWritln('The program cannot perform hypothesis tests for '//
         ^
./nrmtst.f:74:8: previous reference to 'nwritln'
         CALL nWritln('The program cannot compute the significance of '//
         ^
./nrmtst.f:240:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=9_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',' Kurtosis')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:241:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=87_8) vs CHARACTER(KIND=1,LEN=76_8)
          CALL mkTableCell(Ng,'@','Cannot perform hypothesis tests '//
          ^
./nrmtst.f:67:9: previous reference to 'mktablecell'
          CALL mkTableCell(Ng,'@','Cannot compute the significance of '//
          ^
./nrmtst.f:243:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:244:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:247:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=99_8) vs CHARACTER(KIND=1,LEN=88_8)
         CALL nWritln('The program cannot perform hypothesis tests for '//
         ^
./nrmtst.f:74:8: previous reference to 'nwritln'
         CALL nWritln('The program cannot compute the significance of '//
         ^
./nrmtst.f:262:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Kurtosis')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:264:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:271:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Kurtosis')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:66:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Ng,0,0,'row','@','Skewness coefficient')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:273:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:284:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=72_8)
          CALL writln('  this makes the Geary''s a and Kurtosis '//
          ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:286:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=36_8)
          CALL writln('  of the normality of the residuals.',Mt1,0,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:289:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=65_8)
           CALL writln('A significant value of one of these statistics '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:291:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=70_8)
           CALL writln('  standardized residuals do not follow a '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:293:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=66_8)
           CALL writln('  If the regARIMA model fits the data well, '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:295:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=32_8)
           CALL writln('  ordinarily causes no problems.',Mt1,0,F,T)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:296:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=71_8)
           CALL writln('However, a significant value can occur because '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:298:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=73_8)
           CALL writln('  not captured well by the model. Sometimes '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:300:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=70_8)
           CALL writln('  by additional or different regressors (e.g. '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:302:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=22_8)
           CALL writln('  outlier regressors).',Mt1,0,F,T)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:303:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=69_8)
           CALL writln('There are other important effects that can '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:305:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=74_8)
           CALL writln('  such as random variation of the coefficients '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:307:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=72_8)
           CALL writln('  variances, which cannot be represented by '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:309:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=69_8)
           CALL writln('  effects cause the t-tests, AIC''s and '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:311:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=70_8)
           CALL writln('  '//PRGNAM//' to have reduced reliability. '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:313:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=73_8)
           CALL writln('  indicated by significant (high) values of '//
           ^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:315:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=24_8)
           CALL writln('  the squared residuals.',Mt1,0,F,T)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:282:9: previous reference to 'writln'
          CALL writln('Significant skewness has been detected in the '//
          ^
./nrmtst.f:317:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkPOneLine(Mt1,'center',
           ^
./nrmtst.f:72:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Ng,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:323:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./nrmtst.f:63:16: previous reference to 'writtag'
         IF(Lprt)CALL writTag(Mt1,'
')
                 ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o numaff.o numaff.f
flang-new-17   -c -o numfmt.o numfmt.f
flang-new-17   -c -o olsreg.o olsreg.f
flang-new-17   -c -o opnfil.o opnfil.f
flang-new-17   -c -o otsort.o otsort.f
flang-new-17   -c -o outchr.o outchr.f
./outchr.f:36:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
       &   CALL writTagOneLine(Mt1,'h3','indent',Title(2)(1:Ntitle(2)))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./outchr.f:33:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(Mt1,'h3','@',Title(1)(1:Ntitle(1)))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./outchr.f:112:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8)
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./outchr.f:37:7: previous reference to 'writtag'
        CALL writTag(Mt1,'
')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o pacf.o pacf.f
./pacf.f:81:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:73:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:83:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=32_8)
          CALL mkHeaderCellScope(Mt1,0,0,'row',
          ^
./pacf.f:79:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Lag  '//thisP)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:88:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:73:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:90:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL mkHeaderCellScope(Mt1,0,0,'row','Standard Error','SE')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:79:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Lag  '//thisP)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:94:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:73:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:95:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pacf.f:73:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o pass0.o pass0.f
./pass0.f:151:16: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=57_8)
         IF(Lprt)CALL mkPOneLine(Mt1,'@',
                 ^
./pass0.f:124:16: previous reference to 'mkponeline'
         IF(Lprt)CALL mkPOneLine(Mt1,'@',
                 ^
./pass0.f:161:16: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=62_8) vs CHARACTER(KIND=1,LEN=59_8)
         IF(Lprt)CALL mkPOneLine(Mt1,'@',
                 ^
./pass0.f:124:16: previous reference to 'mkponeline'
         IF(Lprt)CALL mkPOneLine(Mt1,'@',
                 ^
flang-new-17   -c -o pass2.o pass2.f
./pass2.f:100:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
           CALL copy(trns0,PLEN,1,Trnsrs)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pass2.f:99:10: previous reference to 'copy'
           CALL copy(adj0,PLEN,1,Adj)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^
./pass2.f:101:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes
           CALL copy(Adj,Nadj,-1,Sprior(Setpri))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pass2.f:99:10: previous reference to 'copy'
           CALL copy(adj0,PLEN,1,Adj)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^
./pass2.f:149:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
          CALL copy(A0,Na,1,A) 
          ^^^^^^^^^^^^^^^^^^^^
./pass2.f:99:10: previous reference to 'copy'
           CALL copy(adj0,PLEN,1,Adj)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^
./pass2.f:269:19: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          IF(Lprtlb)CALL mkPOneLine(Mt1,'@','Model changed to '//
                    ^
./pass2.f:178:20: previous reference to 'mkponeline'
           IF(Lprtlb)CALL mkPOneLine(Mt1,'@',
                     ^
./pass2.f:312:21: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
            IF(Lprtlb)CALL mkPOneLine(Mt1,'@','Model changed to '//
                      ^
./pass2.f:178:20: previous reference to 'mkponeline'
           IF(Lprtlb)CALL mkPOneLine(Mt1,'@',
                     ^
flang-new-17   -c -o pctrit.o pctrit.f
./pctrit.f:123:7: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
        CALL mkCaption(Mt1,'Recommended limits for percentages')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:41:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Percentage of '//Mqq(1:Nmqq)//
         ^
./pctrit.f:153:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,
         ^
./pctrit.f:41:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Percentage of '//Mqq(1:Nmqq)//
         ^
./pctrit.f:157:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,
         ^
./pctrit.f:41:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Percentage of '//Mqq(1:Nmqq)//
         ^
./pctrit.f:185:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Fh,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:109:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:193:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Fh,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:109:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:206:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Fh,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:109:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:213:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Fh,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./pctrit.f:109:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o phasegain.o phasegain.f
flang-new-17   -c -o polyml.o polyml.f
flang-new-17   -c -o polynom.o polynom.f
flang-new-17   -c -o ppnd.o ppnd.f
flang-new-17   -c -o pracf2.o pracf2.f
./pracf2.f:57:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=35_8) vs CHARACTER(KIND=1,LEN=80_8)
          CALL writln('      squared residuals for a set of residuals '//
          ^
./pracf2.f:49:9: previous reference to 'writln'
          CALL writln('      for a model with no variance.',fh0,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prafce.o prafce.f
flang-new-17   -c -o pragr2.o pragr2.f
flang-new-17   -c -o prfcrv.o prfcrv.f
./prfcrv.f:85:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=77_8) vs CHARACTER(KIND=1,LEN=71_8)
         CALL writln(' of forecasts of the original data adjusted'//
         ^
./prfcrv.f:83:8: previous reference to 'writln'
         CALL writln(tbllbl//'.  Evolving Sum of Squared Forecast '//
         ^
./prfcrv.f:87:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=77_8) vs CHARACTER(KIND=1,LEN=60_8)
         CALL writln(' or ramps at specified leads from the end of'//
         ^
./prfcrv.f:83:8: previous reference to 'writln'
         CALL writln(tbllbl//'.  Evolving Sum of Squared Forecast '//
         ^
./prfcrv.f:89:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:94:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=48_8)
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:91:9: previous reference to 'mkponeline'
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:101:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
         CALL mkPOneLine(Mt1,'@',
         ^
./prfcrv.f:91:9: previous reference to 'mkponeline'
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:117:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:121:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=29_8)
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@',
          ^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:125:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=19_8)
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@','Mean Standard Error',
          ^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:128:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:175:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',str(1:ndtc))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:189:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:230:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=42_8)
           CALL mkTableTag(Ng,'w60',
           ^
./prfcrv.f:107:8: previous reference to 'mktabletag'
         CALL mkTableTag(Mt1,'w50','@')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:232:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=42_8)
           CALL mkCaption(Ng,'Average of Squared History Forecast Errors')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:108:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,
         ^
./prfcrv.f:236:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Ng,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:238:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
           CALL writTag(Ng,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:239:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkPOneLine(Ng,'@',' ')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:91:9: previous reference to 'mkponeline'
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:244:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:245:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL mkPOneLine(Mt1,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:91:9: previous reference to 'mkponeline'
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:303:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=77_8) vs CHARACTER(KIND=1,LEN=75_8)
          CALL writln(tbllbl//'.A  Forecasts of the outlier adjusted '//
          ^
./prfcrv.f:83:8: previous reference to 'writln'
         CALL writln(tbllbl//'.  Evolving Sum of Squared Forecast '//
         ^
./prfcrv.f:305:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=77_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL writln(' from the end of each data span and associated'//
          ^
./prfcrv.f:83:8: previous reference to 'writln'
         CALL writln(tbllbl//'.  Evolving Sum of Squared Forecast '//
         ^
./prfcrv.f:307:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'
')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:312:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=48_8)
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:91:9: previous reference to 'mkponeline'
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:315:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkPOneLine(Mt1,'@',
          ^
./prfcrv.f:91:9: previous reference to 'mkponeline'
          CALL mkPOneLine(MT1,'@',
          ^
./prfcrv.f:322:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=41_8)
          CALL mkCaption(Mt1,'Forecast and Forecast Error History Table')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:108:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,
         ^
./prfcrv.f:330:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:335:11: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=20_8)
            CALL mkHeaderCellId(Mt1,0,0,thisId,'@','Transformed Forecast',
            ^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:338:11: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
            CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Forecast')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:341:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=14_8)
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','Forecast Error',
           ^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:344:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:394:11: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
            CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',str(1:ndtc))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:403:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:421:11: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
            CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',str(1:ndtc))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:115:9: previous reference to 'mkheadercellid'
          CALL mkHeaderCellId(Mt1,0,2,thisId,'@','@',thisLag)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:435:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:465:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:82:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:466:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=52_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL mkPOneLine(Mt1,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prfcrv.f:91:9: previous reference to 'mkponeline'
          CALL mkPOneLine(MT1,'@',
          ^
flang-new-17   -c -o pritd.o pritd.f
flang-new-17   -c -o prlkhd.o prlkhd.f
./prlkhd.f:141:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=61_8)
         CALL nWritln('Can''t calculate a log likelihood for a '//
         ^
./prlkhd.f:75:9: previous reference to 'nwritln'
          CALL nWritln('Likelihood statistics are not printed out '//
          ^
./prlkhd.f:256:10: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=134_8)
           CALL nWritln('AIC'//
           ^
./prlkhd.f:75:9: previous reference to 'nwritln'
          CALL nWritln('Likelihood statistics are not printed out '//
          ^
./prlkhd.f:337:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL writTag(Mt1,Charhr)
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prlkhd.f:138:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o procflts.o procflts.f
flang-new-17   -c -o prothd.o prothd.f
flang-new-17   -c -o prprad.o prprad.f
./prprad.f:57:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkPOneLine(Mt1,'@','Trading Day variables adjusted too')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prprad.f:52:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@',
         ^
./prprad.f:59:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkPOneLine(Mt1,'@','All regression variables adjusted too')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prprad.f:52:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@',
         ^
flang-new-17   -c -o prrvob.o prrvob.f
./prrvob.f:85:9: warning: Reference to the procedure 'wrttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL wrttbl(trv,j,'XXXXX',nc,2,Mt1,Tfmt,0,F)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prrvob.f:82:9: previous reference to 'wrttbl'
          CALL wrttbl(trv,Jyp,Colhdr(j)((Tblwid-4):Tblwid),nc,2,Mt1,
          ^
./prrvob.f:87:9: warning: Reference to the procedure 'wrttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL wrttbl(trv,j,hvec(i),nc,2,Mt1,Tfmt,0,F)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prrvob.f:82:9: previous reference to 'wrttbl'
          CALL wrttbl(trv,Jyp,Colhdr(j)((Tblwid-4):Tblwid),nc,2,Mt1,
          ^
./prrvob.f:89:9: warning: Reference to the procedure 'wrttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL wrttbl(trv,j,'     ',nc,2,Mt1,Tfmt,0,F)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prrvob.f:82:9: previous reference to 'wrttbl'
          CALL wrttbl(trv,Jyp,Colhdr(j)((Tblwid-4):Tblwid),nc,2,Mt1,
          ^
flang-new-17   -c -o prshd2.o prshd2.f
flang-new-17   -c -o prtacf.o prtacf.f
flang-new-17   -c -o prtadj.o prtadj.f
flang-new-17   -c -o prtagr.o prtagr.f
flang-new-17   -c -o prtamd.o prtamd.f
./prtamd.f:40:10: warning: Reference to the procedure 'desreg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=24_8)
       &   CALL desreg('Regression Model (fixed)',Ngrpfx,Gfxttl,Gfxptr,
           ^
./prtamd.f:38:10: previous reference to 'desreg'
       &   CALL desreg('Regression Model',Ngrp,Grpttl,Grpptr,Ngrptl)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtamd.f:48:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=70_8)
         CALL mkPOneLine(Mt1,'@','  Estimation error in computing '//
         ^
./prtamd.f:34:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtamd.f:75:23: warning: Reference to the procedure 'setpt' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=11_8)
         IF(.not.Lfatal)CALL setpt(Mt1,AR,'Seasonal AR')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtamd.f:73:8: previous reference to 'setpt'
         CALL setpt(Mt1,AR,'Nonseasonal AR')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtamd.f:76:23: warning: Reference to the procedure 'setpt' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=11_8)
         IF(.not.Lfatal)CALL setpt(Mt1,MA,'Seasonal MA')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtamd.f:73:8: previous reference to 'setpt'
         CALL setpt(Mt1,AR,'Nonseasonal AR')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtamd.f:92:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=71_8)
           CALL mkPOneLine(Mt1,'@','Insufficient data to compute the '//
           ^
./prtamd.f:34:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtamd.f:96:10: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=81_8)
           CALL mkPOneLine(Mt1,'@','Insufficient data to compute the '//
           ^
./prtamd.f:34:22: previous reference to 'mkponeline'
        IF(.not.Lcmpaq)CALL mkPOneLine(Mt1,'@',' ')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtchi.o prtchi.f
./prtchi.f:39:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Fh,0,0,'col','@','Chi-square')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:38:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Fh,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:40:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Fh,0,0,'col','@','p-value')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:38:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Fh,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:41:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Fh,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:36:8: previous reference to 'writtag'
         CALL writTag(Fh,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:45:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Fh,0,0,'col','@',Grpstr(1:Nchr))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:38:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Fh,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:55:8: warning: Reference to the procedure 'mktablecellspan' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=10_8)
         CALL mkTableCellSpan(Fh,'col',3,'center','Not tested')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:48:9: previous reference to 'mktablecellspan'
          CALL mkTableCellSpan(Fh,'col',3,'center',
          ^
./prtchi.f:57:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Fh,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtchi.f:36:8: previous reference to 'writtag'
         CALL writTag(Fh,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtcol.o prtcol.f
./prtcol.f:29:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./prtcol.f:24:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prtcol.f:34:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Period '//cperiod(i))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtcol.f:24:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prtcol.f:38:19: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: assumed-length character vs explicit-length character
        IF(Nop.lt.5)CALL mkHeaderCellScope(Mt1,0,0,'col',Nopabb,Noplbl)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtcol.f:24:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prtcol.f:39:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtcol.f:19:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtd8b.o prtd8b.f
./prtd8b.f:238:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkPOneLine(Mt1,'center',
          ^
./prtd8b.f:235:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtd8b.f:241:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkTableTag(Mt1,'x11','Key to symbols for Table D8.B')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtd8b.f:164:8: previous reference to 'mktabletag'
         CALL mkTableTag(Mt1,'x11',tblttl(1:ntbttl))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtd8b.f:242:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Mt1,'Key to symbols:')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtd8b.f:165:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,tblttl(1:ntbttl))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtd9a.o prtd9a.f
flang-new-17   -c -o prtdtb.o prtdtb.f
./prtdtb.f:63:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=90_8) vs CHARACTER(KIND=1,LEN=59_8)
         CALL writTagOneLine(Mt1,'h3','@',
         ^
./prtdtb.f:58:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(Mt1,'h3','@',
         ^
./prtdtb.f:132:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:138:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:140:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:168:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:173:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:175:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:195:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:200:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:202:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdtb.f:130:10: previous reference to 'writtag'
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtdwr.o prtdwr.f
./prtdwr.f:86:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','Tuesday','Tue')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:87:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=9_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','Wednesday','Wed')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:88:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','Thursday','Thu')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:90:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','Saturday','Sat')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:91:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=14_8)
        CALL mkHeaderCellScope(Mt1,0,0,'col','Sunday derived','Sun*')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:92:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:83:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:97:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt1,0,0,'row','@',tdstr(1:ncol))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:106:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt1,0,0,'row','@',td2str(1:ncol2))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:115:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt1,0,0,'row','@',td3str(1:ncol3))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:124:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt1,0,0,'row','@',td4str(1:ncol4))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:85:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:131:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:83:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:132:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtdwr.f:83:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prterr.o prterr.f
./prterr.f:54:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=19_8)
          CALL writln('revisions analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:57:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=53_8) vs CHARACTER(KIND=1,LEN=46_8)
          CALL eWritln('Nonlinear estimation error with unknown cause.',
          ^
./prterr.f:47:10: previous reference to 'ewritln'
       &   CALL eWritln('Nonlinear estimation error with unknown cause '//
           ^
./prterr.f:75:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL eWritln('Regression matrix singular because of '//
          ^
./prterr.f:47:10: previous reference to 'ewritln'
       &   CALL eWritln('Nonlinear estimation error with unknown cause '//
           ^
./prterr.f:77:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=55_8)
          CALL writln(' Remove variable(s) from regression spec and '//
          ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:82:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL eWritln('Regression matrix singular because of '//
          ^
./prterr.f:47:10: previous reference to 'ewritln'
       &   CALL eWritln('Nonlinear estimation error with unknown cause '//
           ^
./prterr.f:84:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=59_8)
          CALL writln(' Check regression model or change automatic '//
          ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:86:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=52_8)
          CALL writln(' i.e. method to addone or types to identify AO '//
          ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:112:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=57_8)
         CALL writln(' Please send us the data and spec file that '//
         ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:114:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=26_8)
         CALL writln(' message (x12@census.gov).',Mt1,Mt2,F,T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:129:8: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=59_8)
         CALL wWritln('Estimation was terminated because no '//
         ^
./prterr.f:110:8: previous reference to 'wwritln'
         CALL wWritln('Improper input parameters to the likelihood '//
         ^
./prterr.f:131:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=29_8)
         CALL writln(' the likelihood was possible.',fh2,Mt2,F,T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:132:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=74_8)
         CALL writln(' Check iteration output to confirm that model '//
         ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:139:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=55_8)
          CALL writln(' Convergence tolerance on the likelihood is '//
          ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:144:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=56_8)
          CALL wWritln('Convergence tolerance for the relative '//
          ^
./prterr.f:110:8: previous reference to 'wwritln'
         CALL wWritln('Improper input parameters to the likelihood '//
         ^
./prterr.f:146:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=35_8)
          CALL writln(' parameter estimates is too strict.',fh2,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:150:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL writln(' Cosine of the angle between the vector of '//
          ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:152:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=41_8)
          CALL writln(' any column of the jacobian is too small.',
          ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:156:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL mkPOneLine(Mt1,'@',' This warning occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:159:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=51_8)
          CALL mkPOneLine(Mt1,'@',' This warning occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:166:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=648_8)
         CALL getstr(Oprttl,Oprptr,Noprtl,Prbfac,str,nchr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:65:9: previous reference to 'getstr'
          CALL getstr(Colttl,Colptr,Ncoltl,Sngcol,str,nchr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:169:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL eWritln(
         ^
./prterr.f:47:10: previous reference to 'ewritln'
       &   CALL eWritln('Nonlinear estimation error with unknown cause '//
           ^
./prterr.f:172:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=52_8)
         CALL writln(
         ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:176:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=55_8)
          CALL mkPOneLine(Mt1,'@',' This error occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:179:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=49_8)
          CALL mkPOneLine(Mt1,'@',' This error occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:191:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=648_8)
         CALL getstr(Oprttl,Oprptr,Noprtl,Prbfac,str,nchr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:65:9: previous reference to 'getstr'
          CALL getstr(Colttl,Colptr,Ncoltl,Sngcol,str,nchr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:194:8: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL eWritln(str(1:nchr)//' has roots inside the unit circle '//
         ^
./prterr.f:47:10: previous reference to 'ewritln'
       &   CALL eWritln('Nonlinear estimation error with unknown cause '//
           ^
./prterr.f:196:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=56_8)
         CALL writln(' so cannot invert the operator.  Try including '//
         ^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:199:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=55_8)
          CALL mkPOneLine(Mt1,'@',' This error occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:202:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=49_8)
          CALL mkPOneLine(Mt1,'@',' This error occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:223:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=55_8)
          CALL mkPOneLine(Mt1,'@',' This error occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:226:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=49_8)
          CALL mkPOneLine(Mt1,'@',' This error occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:234:8: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=53_8)
         CALL wWritln('Deviance was less than machine precision so '//
         ^
./prterr.f:110:8: previous reference to 'wwritln'
         CALL wWritln('Improper input parameters to the likelihood '//
         ^
./prterr.f:236:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=33_8)
         CALL writln(' calculate the relative deviance.',fh2,Mt2,T,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:51:9: previous reference to 'writln'
          CALL writln('sliding spans analysis.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:238:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL mkPOneLine(Mt1,'@',' This warning occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:241:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=51_8)
          CALL mkPOneLine(Mt1,'@',' This warning occurred during the '//
          ^
./prterr.f:135:23: previous reference to 'mkponeline'
          IF(.not.Lauto)CALL mkPOneLine(Mt1,'@',' ')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prterr.f:249:8: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=108_8)
         CALL wWritln('The covariance matrix of the ')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:77:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Nw,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:80:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:95:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=31_8)
        CALL mkHeaderCellScope(Nw,0,0,'col',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:98:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=11_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Trend-Cycle',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:100:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=10_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Seasonal','D10'//Cbr//'S')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:101:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Prior','A2'//Cbr//'P')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:102:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=23_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Trading Day and Holiday',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:104:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','@','TOTAL')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:105:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=15_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Ratio times 100',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:107:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:115:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:118:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:136:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=9_8)
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Irregular',
        ^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:139:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=11_8)
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Trend-Cycle',
        ^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:142:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=10_8)
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Seasonal','D10'//Cbr//'S')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:144:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=26_8)
        CALL mkHeaderCellId(Nw,0,2,thisId,'@',
        ^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:148:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
        CALL mkHeaderCellId(Nw,0,2,thisId,'@',Moqu(1:nblank(Moqu))//
        ^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:151:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:160:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL mkHeaderCellId(Nw,0,0,thisId,'@','Average','Avg.')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:163:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=18_8)
         CALL mkHeaderCellId(Nw,0,0,thisId,'@','Standard Deviation',
         ^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:166:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:172:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellId(Nw,0,0,thisId,'@','@',thisLag)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:133:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Nw,0,2,thisId,'@','Original',
        ^
./prtf2.f:198:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Nw,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:204:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:207:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments
        CALL writTagOneLine(Nw,'h3','@','F 2.D: Average duration of run')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:27:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nw,'h3','@',
        ^
./prtf2.f:208:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
        CALL mkTableTag(Nw,'w50','Average duration of run')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:31:7: previous reference to 'mktabletag'
        CALL mkTableTag(Nw,'w70','Average '//Pcdif(1:nblank(Pcdif))//
        ^
./prtf2.f:212:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=26_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Seasonally Adjusted series',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:214:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=9_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Irregular','I')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:215:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=11_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Trend-Cycle','C')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:216:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
        CALL mkHeaderCellScope(Nw,0,0,'col',Moqu(1:nblank(Moqu))//
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:218:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:223:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:240:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:242:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=14_8)
        CALL mkHeaderCellScope(Nw,0,0,'row','I over C ratio','I/C')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:247:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:249:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:257:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments
        CALL writTagOneLine(Nw,'h3','@',
        ^
./prtf2.f:27:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nw,'h3','@',
        ^
./prtf2.f:261:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
        CALL mkTableTag(Nw,'w70',
        ^
./prtf2.f:31:7: previous reference to 'mktabletag'
        CALL mkTableTag(Nw,'w70','Average '//Pcdif(1:nblank(Pcdif))//
        ^
./prtf2.f:268:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=9_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Irregular','I')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:269:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=11_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Trend-Cycle','C')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:270:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Seasonal','S')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:271:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Prior','P')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:272:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=23_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','Trading Day and Holiday',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:274:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','@','Total')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:275:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:280:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:298:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:300:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=24_8)
        CALL mkHeaderCellScope(Nw,0,0,'row','autocorrelation function',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:309:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:313:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:327:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments
        CALL writTagOneLine(Nw,'h3','@','F 2.I: Seasonality tests')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:27:7: previous reference to 'writtagoneline'
        CALL writTagOneLine(Nw,'h3','@',
        ^
./prtf2.f:328:7: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
        CALL mkTableTag(Nw,'w80','Seasonality tests')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:31:7: previous reference to 'mktabletag'
        CALL mkTableTag(Nw,'w70','Average '//Pcdif(1:nblank(Pcdif))//
        ^
./prtf2.f:333:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','@','Statistic')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:334:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'col','@',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:336:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:339:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'row','@',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:342:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:346:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'row','@',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:349:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:352:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'row','@',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:356:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:359:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=8_8) vs CHARACTER(KIND=1,LEN=1_8)
        CALL mkHeaderCellScope(Nw,0,0,'row','@',
        ^
./prtf2.f:37:7: previous reference to 'mkheadercellscope'
        CALL mkHeaderCellScope(Nw,0,0,'col','Original',
        ^
./prtf2.f:362:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:364:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtf2.f:35:7: previous reference to 'writtag'
        CALL writTag(Nw,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtf2w.o prtf2w.f
flang-new-17   -c -o prtfct.o prtfct.f
./prtfct.f:157:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=72_8) vs CHARACTER(KIND=1,LEN=53_8)
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:160:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=72_8) vs CHARACTER(KIND=1,LEN=56_8)
           CALL mkCaption(Mt1,
           ^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:163:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=72_8) vs CHARACTER(KIND=1,LEN=29_8)
           CALL mkCaption(Mt1,'Forecasts and Standard Errors')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:212:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Forecast')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:213:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=19_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Standard'//Cbr//
           ^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:215:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:225:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
            CALL mkHeaderCellScope(Mt1,0,0,'row','@',str(1:ndtchr))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:228:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:251:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:284:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Forecast')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:285:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=19_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Forecast'//Cbr//
           ^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:287:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=19_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Standard'//Cbr//
           ^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:289:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','t-value')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:290:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:300:11: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
            CALL mkHeaderCellScope(Mt1,0,0,'row','@',str(1:ndtchr))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:307:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:344:12: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
             CALL mkHeaderCellScope(Mt1,0,0,'row','@',str(1:ndtchr))
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:350:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:375:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:391:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=71_8)
          CALL mkTableTag(Mt1,'w70','Stochastic and regression '//
          ^
./prtfct.f:152:9: previous reference to 'mktabletag'
          CALL mkTableTag(Mt1,'w70','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:393:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=72_8) vs CHARACTER(KIND=1,LEN=71_8)
          CALL mkCaption(Mt1,'Stochastic and regression '//
          ^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:417:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=24_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Regression'//Cbr//
          ^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:419:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=24_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Stochastic'//Cbr//
          ^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:421:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=19_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Total'//Cbr//
          ^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:423:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=26_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Regression'//Cbr//
          ^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:425:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:457:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
           CALL mkHeaderCellScope(Mt1,0,0,'row','@',str(1:ndtchr))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:462:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:486:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:505:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,untfct,Adj(Adj1st+fctori),Nfcst,PFCST,untfct)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:507:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
       &     CALL eltfcn(ff,untfct,X11hol(Pos2+1),Nfcst,PFCST,untfct)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:509:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
       &     CALL eltfcn(ff,untfct,Facxhl(Pos2+1),Nfcst,PFCST,untfct)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:511:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
       &     CALL eltfcn(ff,untfct,Stptd(Pos2+1),Nfcst,PFCST,untfct)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:551:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,lwrci,Adj(Adj1st+fctori),Nfcst,PFCST,lwrci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:552:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,uprci,Adj(Adj1st+fctori),Nfcst,PFCST,uprci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:555:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL eltfcn(ff,lwrci,X11hol(Pos2+1),Nfcst,PFCST,lwrci)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:556:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL eltfcn(ff,uprci,X11hol(Pos2+1),Nfcst,PFCST,uprci)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:559:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL eltfcn(ff,lwrci,Facxhl(Pos2+1),Nfcst,PFCST,lwrci)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:560:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL eltfcn(ff,uprci,Facxhl(Pos2+1),Nfcst,PFCST,uprci)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:563:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL eltfcn(ff,lwrci,Stptd(Pos2+1),Nfcst,PFCST,lwrci)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:564:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL eltfcn(ff,uprci,Stptd(Pos2+1),Nfcst,PFCST,uprci)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:593:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,untfct,Facxhl(Pos2+1),Nfcst,PFCST,untfct)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:594:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,lwrci,Facxhl(Pos2+1),Nfcst,PFCST,lwrci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:595:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,uprci,Facxhl(Pos2+1),Nfcst,PFCST,uprci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:598:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,untfct,X11hol(Pos2+1),Nfcst,PFCST,untfct)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:599:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,lwrci,X11hol(Pos2+1),Nfcst,PFCST,lwrci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:600:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,uprci,X11hol(Pos2+1),Nfcst,PFCST,uprci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:603:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,untfct,Stptd(Pos2+1),Nfcst,PFCST,untfct)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:604:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,lwrci,Stptd(Pos2+1),Nfcst,PFCST,lwrci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:605:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL eltfcn(ff,uprci,Stptd(Pos2+1),Nfcst,PFCST,uprci)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:624:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
          CALL mkTableTag(Mt1,'w70',ttlfct(1:nttlcr))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:152:9: previous reference to 'mktabletag'
          CALL mkTableTag(Mt1,'w70','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:627:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,ttlfct(1:nttlcr)//Cbr//ttlfc2(1:ntl2cr)//
            ^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:630:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,ttlfct(1:nttlcr)//Cbr//ttlfc2(1:ntl2cr))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:634:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,ttlfct(1:nttlcr)//Cbr//
            ^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:637:11: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
            CALL mkCaption(Mt1,ttlfct(1:nttlcr))
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:154:10: previous reference to 'mkcaption'
           CALL mkCaption(Mt1,'Forecasts and Standard Errors of '//
           ^
./prtfct.f:653:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Lower')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:654:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Forecast')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:655:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Upper')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:656:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:679:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
           CALL mkHeaderCellScope(Mt1,0,0,'row','@',str(1:ndtchr))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:211:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@','Date')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:683:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:711:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:95:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:731:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL eltfcn(ff,untfct,Adj(Adj1st+fctori),Nfcst,PFCST,untfct)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:733:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
       &     CALL eltfcn(ff,untfct,Facxhl(Pos2+1),Nfcst,PFCST,untfct)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:735:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
       &     CALL eltfcn(ff,untfct,X11hol(Pos2+1),Nfcst,PFCST,untfct)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:737:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
       &     CALL eltfcn(ff,untfct,Stptd(Pos2+1),Nfcst,PFCST,untfct)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtfct.f:260:9: previous reference to 'eltfcn'
          CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtft.o prtft.f
./prtft.f:35:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt1,0,0,'col','@','F-statistic')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:34:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:36:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt1,0,0,'col','@','P-Value')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:34:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:37:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:32:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:50:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkHeaderCellScope(Ng,0,0,'col','@','F-statistic')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:34:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:51:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkHeaderCellScope(Ng,0,0,'col','@','P-Value')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:34:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:52:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:32:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:62:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt1,0,0,'row','@',Grpstr(1:Nchr))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:34:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:65:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=18_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkHeaderCellScope(Ng,0,0,'row','@',Grpstr(1:Nchr))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:34:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Mt1,0,0,'col','Degrees of Freedom','df')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:80:9: warning: Reference to the procedure 'mktablecellspan' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=10_8)
          CALL mkTableCellSpan(Mt1,'col',3,'center','Not tested')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:69:10: previous reference to 'mktablecellspan'
           CALL mkTableCellSpan(Mt1,'col',3,'center',
           ^
./prtft.f:82:12: warning: Reference to the procedure 'mktablecellspan' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=10_8)
       &     CALL mkTableCellSpan(Ng,'col',3,'center','Not tested')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:69:10: previous reference to 'mktablecellspan'
           CALL mkTableCellSpan(Mt1,'col',3,'center',
           ^
./prtft.f:84:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:32:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:85:18: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         IF(Lsvlog)CALL writTag(Ng,'')
                   ^^^^^^^^^^^^^^^^^^^^^^^^
./prtft.f:32:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtitr.o prtitr.f
./prtitr.f:69:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=19_8)
          CALL writTagOneLine(Mt1,'h3','@','regARIMA Iterations')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtitr.f:63:9: previous reference to 'writtagoneline'
          CALL writTagOneLine(Mt1,'h3','@',
          ^
./prtitr.f:179:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=10_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtitr.f:167:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtitr.f:180:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtitr.f:167:8: previous reference to 'writtag'
         CALL writTag(Mt1,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtlog.o prtlog.f
./prtlog.f:76:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=58_8) vs CHARACTER(KIND=1,LEN=89_8)
         CALL mkPOneLine(Ng,'@',PRGNAM//
         ^
./prtlog.f:39:11: previous reference to 'mkponeline'
            CALL mkPOneLine(Ng,'@','Input or runtime errors were found '//
            ^
./prtlog.f:89:10: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments
           CALL writTagOneLine(Ng,'li','@',
           ^
./prtlog.f:23:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(Ng,'h2','@',
         ^
flang-new-17   -c -o prtmdl.o prtmdl.f
./prtmdl.f:270:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=19_8)
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:274:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=7_8)
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','t-value')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:280:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=20_8)
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:285:11: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=19_8)
            CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
            ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:293:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:355:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=1840_8)
           CALL getstr(Colttl,Colptr,Ncoltl,icol,colstr,ncolcr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:328:9: previous reference to 'getstr'
          CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:378:13: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
              CALL mkHeaderCellId(Mt1,0,nGroup,thisId,'left','@',
              ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:380:13: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:446:13: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
              CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
              ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:449:13: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
              CALL mkHeaderCellId(Mt1,0,0,thisId,'left','@',
              ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:474:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:477:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:480:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:493:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:506:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:509:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:688:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:691:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:694:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:707:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:736:14: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
               CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:740:21: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            IF(Lprtes)CALL writTag(Mt1,'')
                      ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:757:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=384_8)
           CALL getstr(drvttl,drvptr,Ndrvtl,icol,drvstr,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:328:9: previous reference to 'getstr'
          CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:768:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:772:10: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableTag(Mt1,'w70','@')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:256:9: previous reference to 'mktabletag'
          CALL mkTableTag(Mt1,'w70','Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:773:10: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=24_8)
           CALL mkCaption(Mt1,'Key for Regression Table')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:257:9: previous reference to 'mkcaption'
          CALL mkCaption(Mt1,'Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:780:12: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=130_8)
             CALL getstr(COGDIC,cogptr,PCOG,msg(imsg),grpstr,ngrpcr)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:328:9: previous reference to 'getstr'
          CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:782:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL mkTableCell(Mt1,'head','&')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:262:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:785:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' for the span of data before the change date.',
              ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:788:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=10_8)
              CALL mkTableCell(Mt1,'head','&&')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:262:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:791:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' coefficients differ from those estimated '//
              ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:793:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' starting at the change date.',Mt1,F,T)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:795:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
              CALL mkTableCell(Mt1,'head','@')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:262:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:798:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' for the span of data starting at the '//
              ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:801:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
              CALL mkTableCell(Mt1,'head','@@')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:262:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:804:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' coefficients differ from those estimated '//
              ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:806:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' before the change date.',Mt1,F,T)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:808:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:814:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'head','*')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:262:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:815:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd('For full trading-day and stable seasonal '//
           ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:817:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' parameter estimate is obtained indirectly '//
           ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:819:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' of the directly estimated parameters that '//
           ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:821:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:825:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=2_8)
           CALL mkTableCell(Mt1,'head','**')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:262:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:826:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd('For the one coefficient trading-day effect, '//
           ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:828:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' parameter estimate is obtained indirectly '//
           ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:830:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' the directly estimated parameter that '//
           ^
./prtmdl.f:783:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//
              ^
./prtmdl.f:832:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:835:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:873:11: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=31_8)
            CALL setchr(' ',31,ctype)
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:548:10: previous reference to 'setchr'
           CALL setchr(' ',PCOLCR,colstr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:893:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:957:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=11_8)
         CALL writTagOneLine(Mt1,'h3','@','ARIMA Model')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:254:9: previous reference to 'writtagoneline'
          CALL writTagOneLine(Mt1,'h3','@','Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:958:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
         CALL mkPOneLine(Mt1,'@',
         ^
./prtmdl.f:173:19: previous reference to 'mkponeline'
          IF(Lpritr)CALL mkPOneLine(Mt1,'@',' ')
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:964:25: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
           IF(Nnsedf.gt.0)CALL writTag(Mt1,Cbr)
                          ^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:972:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=11_8)
         CALL mkTableTag(Mt1,'w70','ARIMA Model')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:256:9: previous reference to 'mktabletag'
          CALL mkTableTag(Mt1,'w70','Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:973:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=11_8)
         CALL mkCaption(Mt1,'ARIMA Model')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:257:9: previous reference to 'mkcaption'
          CALL mkCaption(Mt1,'Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:980:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Estimate')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:983:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Standard Error')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:989:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=13_8)
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Value (fixed)')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:995:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','Value')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:999:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1046:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=648_8)
           CALL getstr(Oprttl,Oprptr,Noprtl,iopr,tmpttl,ntmpcr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:328:9: previous reference to 'getstr'
          CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1054:12: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
             CALL mkHeaderCellId(Mt1,0,nGroup-1,thisId,'left','@',
             ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:1057:12: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
             CALL mkHeaderCellId(Mt1,0,0,thisId,'left','@',
             ^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:1060:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8)
            CALL mkTableCell(Mt1,'head',cfix)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:262:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1062:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1075:12: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=6_8)
             CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',thisLag)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:266:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtmdl.f:1090:14: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=7_8)
               CALL mkTableCellHeader(Mt1,thisHdr,'right',cfix)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1096:16: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=7_8)
       &         CALL mkTableCellHeader(Mt1,thisHdr,'right',cfix)
                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:464:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1099:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1166:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1182:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=41_8)
          CALL mkTableTag(Mt1,'w60',
          ^
./prtmdl.f:256:9: previous reference to 'mktabletag'
          CALL mkTableTag(Mt1,'w70','Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1184:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=25_8)
          CALL mkCaption(Mt1,'Model Innovation Variance')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:257:9: previous reference to 'mkcaption'
          CALL mkCaption(Mt1,'Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:1187:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmdl.f:261:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtmsp.o prtmsp.f
flang-new-17   -c -o prtmsr.o prtmsr.f
./prtmsr.f:51:7: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=22_8) vs CHARACTER(KIND=1,LEN=132_8)
        CALL setchr('-',132,dash)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:50:7: previous reference to 'setchr'
        CALL setchr(' ',22,cblank)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:77:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
           CALL mkHeaderCellScope(Mt1,0,0,'col','@',Colhdr(i)//' Quarter')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:72:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
           ^
./prtmsr.f:80:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:68:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:106:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
           CALL mkHeaderCellScope(Mt1,0,0,'row','@',cyear(1:(ipos-1)))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:72:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
           ^
./prtmsr.f:108:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ') 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:69:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:111:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',filter(Msr(i))) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:69:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:113:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:68:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:119:10: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
           CALL mkHeaderCellScope(Mt1,0,0,'row','@',cyear(1:(ipos-1)))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:72:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
           ^
./prtmsr.f:122:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
             CALL mkTableCell(Mt1,'@',filter(Msr(i)))
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:69:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:124:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
             CALL mkTableCell(Mt1,'@',' ') 
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:69:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:127:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:68:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:132:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:68:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:164:9: warning: Reference to the procedure 'itoc' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=50_8)
          CALL itoc(rdbdat,outstr,ipos)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmsr.f:105:10: previous reference to 'itoc'
           CALL itoc(j,cyear,ipos)
           ^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtmtx.o prtmtx.f
./prtmtx.f:36:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmtx.f:30:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmtx.f:54:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmtx.f:30:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmtx.f:58:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmtx.f:30:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtmtx.f:60:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtmtx.f:30:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtnfn.o prtnfn.f
flang-new-17   -c -o prtopt.o prtopt.f
flang-new-17   -c -o prtref.o prtref.f
./prtref.f:110:7: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
        CALL insstr('Total Reg',nttl+1,PTTL,ttlstr,ttlptr,nttl)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:97:26: previous reference to 'insstr'
            IF(.not.Lfatal)CALL insstr(str(1:nchr),nttl+1,PTTL,ttlstr,
                           ^
./prtref.f:114:22: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
        IF(.not.Lfatal)CALL insstr('Reg Resids',nttl+1,PTTL,ttlstr,ttlptr,
                       ^
./prtref.f:97:26: previous reference to 'insstr'
            IF(.not.Lfatal)CALL insstr(str(1:nchr),nttl+1,PTTL,ttlstr,
                           ^
./prtref.f:151:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
        CALL dcopy(Nrxy,Xy(Ncxy),Ncxy,txy(nttl),nttl)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:123:8: previous reference to 'dcopy'
         CALL dcopy(Nrxy,dvec,0,txy(i),nttl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:242:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Ftd,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:250:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fhol,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:255:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fusr,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:264:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fsea,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:270:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fao,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:277:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fls,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:283:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Ftc,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:287:27: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
         IF(rtype.eq.PRGTMV)CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fmv,1)
                            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:293:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
       &    CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fso,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:300:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fcyc,1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtref.f:133:11: previous reference to 'daxpy'
            CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtrev.o prtrev.f
./prtrev.f:125:11: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL insstr('Concurrent -',nhdr,PC1,hdrttl,hdrptr,nhdrtl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:121:10: previous reference to 'insstr'
           CALL insstr(cobs(1:(ipos-1))//' later-',nhdr,PC1,hdrttl,
           ^
./prtrev.f:145:11: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL insstr('Final ',nhd2,PC1,hd2ttl,hd2ptr,nhd2tl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:121:10: previous reference to 'insstr'
           CALL insstr(cobs(1:(ipos-1))//' later-',nhdr,PC1,hdrttl,
           ^
./prtrev.f:162:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,PC1*PREVY,aaryr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:161:7: previous reference to 'setdp'
        CALL setdp(0D0,PC1*12,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:163:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,PC1,aartot)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:161:7: previous reference to 'setdp'
        CALL setdp(0D0,PC1*12,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:165:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,PC1*PREVY,naryr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:161:7: previous reference to 'setdp'
        CALL setdp(0D0,PC1*12,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:166:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,PC1,nartot)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:161:7: previous reference to 'setdp'
        CALL setdp(0D0,PC1*12,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:269:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:286:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:252:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:291:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:294:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:350:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//
         ^
./prtrev.f:247:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:377:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:383:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=12_8)
          CALL mkHeaderCellScope(Mt1,0,0,'row',cpobs(i1)//cm2(i1),
          ^
./prtrev.f:263:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@',
           ^
./prtrev.f:387:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:252:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:392:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:394:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:406:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : Summary of '//
         ^
./prtrev.f:247:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:429:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:439:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:252:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:444:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:446:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:458:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : Summary of '//
         ^
./prtrev.f:247:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:481:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:485:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
         CALL mkHeaderCellScope(Mt1,0,0,'row','@','Total')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:263:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@',
           ^
./prtrev.f:489:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:490:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:517:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : '//cobs(1:nstr))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:247:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:539:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:543:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'row','@',hvec(i))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:263:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt1,0,0,'col','@',
           ^
./prtrev.f:547:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:549:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:578:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:658:9: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL insstr('Revision',nhdr,PC1,hdrttl,hdrptr,nhdrtl)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:121:10: previous reference to 'insstr'
           CALL insstr(cobs(1:(ipos-1))//' later-',nhdr,PC1,hdrttl,
           ^
./prtrev.f:663:10: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL insstr('Final',nhdr,PC1,hdrttl,hdrptr,nhdrtl)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:121:10: previous reference to 'insstr'
           CALL insstr(cobs(1:(ipos-1))//' later-',nhdr,PC1,hdrttl,
           ^
./prtrev.f:666:10: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL insstr('Concurrent',nhdr,PC1,hdrttl,hdrptr,nhdrtl)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:121:10: previous reference to 'insstr'
           CALL insstr(cobs(1:(ipos-1))//' later-',nhdr,PC1,hdrttl,
           ^
./prtrev.f:676:10: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL insstr('Final',nhdr,PC1,hdrttl,hdrptr,nhdrtl)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:121:10: previous reference to 'insstr'
           CALL insstr(cobs(1:(ipos-1))//' later-',nhdr,PC1,hdrttl,
           ^
./prtrev.f:683:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
          CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : '//
          ^
./prtrev.f:247:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:696:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:725:12: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
             CALL mkTableCell(Mt1,'@',' ')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:252:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:730:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:733:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:251:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:806:9: warning: Reference to the procedure 'itoc' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=13_8) vs CHARACTER(KIND=1,LEN=167_8)
          CALL itoc(rdbdat,outstr,ipos) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:120:10: previous reference to 'itoc'
           CALL itoc(Ny,cobs,ipos) 
           ^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:898:9: warning: Reference to the procedure 'itoc' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=13_8) vs CHARACTER(KIND=1,LEN=167_8)
          CALL itoc(rdbdat,outstr,ipos)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrev.f:120:10: previous reference to 'itoc'
           CALL itoc(Ny,cobs,ipos) 
           ^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtrts.o prtrts.f
./prtrts.f:178:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:141:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:185:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=9_8)
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Imaginary')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:182:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Real')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:188:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Modulus')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:182:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Real')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:191:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=9_8)
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Frequency')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:182:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Real')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:192:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:141:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:211:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:141:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:214:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL mkHeaderCellId(Mt,0,5,thisId,'left','@',tmpttl(1:ntmpcr))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:182:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Real')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:215:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:141:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:235:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:141:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:239:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=7_8)
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@',thisRoot)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:182:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt,0,0,thisId,'@','@','Real')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:252:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrts.f:141:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtrv2.o prtrv2.f
./prtrv2.f:117:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,2*PREVY,aaryr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:116:7: previous reference to 'setdp'
        CALL setdp(0D0,24,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:118:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,2,aartot)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:116:7: previous reference to 'setdp'
        CALL setdp(0D0,24,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:120:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,2*PREVY,naryr)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:116:7: previous reference to 'setdp'
        CALL setdp(0D0,24,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:121:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,2,nartot)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:116:7: previous reference to 'setdp'
        CALL setdp(0D0,24,aarpd)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:182:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:202:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:173:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:207:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:210:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:267:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : Summary of '//
         ^
./prtrv2.f:168:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:286:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:292:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=11_8)
          CALL mkHeaderCellScope(Mt1,0,0,'row',cpobs(i1)//cm2(i1),
          ^
./prtrv2.f:179:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./prtrv2.f:296:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:173:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:301:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:303:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:315:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : Summary of '//
         ^
./prtrv2.f:168:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:330:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:340:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:173:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:345:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:347:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:358:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : Summary of '//
         ^
./prtrv2.f:168:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:373:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:377:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
         CALL mkHeaderCellScope(Mt1,0,0,'row','@','Total')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:179:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./prtrv2.f:381:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:382:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:408:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
         CALL mkCaption(Mt1,'Table '//tblttl(1:5)//' : '//cobs(1:nstr))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:168:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt1,'Table '//tblttl(1:5))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:430:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:434:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'row','@',hvec(i))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:179:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',
          ^
./prtrv2.f:438:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:440:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:528:8: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL insstr('Revision',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:530:11: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=5_8)
       &    CALL insstr('Final',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:532:11: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
       &    CALL insstr('Proj',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:534:11: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
       &    CALL insstr('Revision',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:536:11: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=5_8)
       &    CALL insstr('Final',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:538:11: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
       &    CALL insstr('Conc',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:556:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:585:11: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
            CALL mkTableCell(Mt1,'@',' ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:173:8: previous reference to 'mktablecell'
         CALL mkTableCell(Mt1,'head',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:590:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:172:8: previous reference to 'writtag'
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:609:8: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=16_8)
         CALL insstr('PROJ_SF_revision',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:613:8: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=11_8)
         CALL insstr('SF_revision',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:634:9: warning: Reference to the procedure 'itoc' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=13_8) vs CHARACTER(KIND=1,LEN=75_8)
          CALL itoc(rdbdat,outstr,ipos) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:336:9: previous reference to 'itoc'
          CALL itoc(i1,cobs,ipos) 
          ^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:663:8: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL insstr('Final_SF',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:664:23: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8)
         IF(.not.Lfatal)CALL insstr('Proj_SF',nhdr,3,hdrttl,hdrptr,
                        ^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:666:23: warning: Reference to the procedure 'insstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8)
         IF(.not.Lfatal)CALL insstr('Conc_SF',nhdr,3,hdrttl,hdrptr,nhdrtl)
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:100:8: previous reference to 'insstr'
         CALL insstr('Proj -',nhdr,PNCHDR,hdrttl,hdrptr,nhdrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:694:9: warning: Reference to the procedure 'itoc' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=13_8) vs CHARACTER(KIND=1,LEN=75_8)
          CALL itoc(rdbdat,outstr,ipos)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtrv2.f:336:9: previous reference to 'itoc'
          CALL itoc(i1,cobs,ipos) 
          ^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtshd.o prtshd.f
flang-new-17   -c -o prttbl.o prttbl.f
./prttbl.f:151:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:161:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',cqtr(i)//' Quarter')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:156:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prttbl.f:165:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Period '//cperiod(i))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:156:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prttbl.f:168:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:169:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:174:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:179:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:152:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:190:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkTableCell(Mt1,'nowrap',thisOb)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:152:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:192:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',thisOb)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:152:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:197:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:152:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:200:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:202:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:211:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:219:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkTableCell(Mt1,'nowrap',thisOb)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:152:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:221:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',thisOb)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:152:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:224:22: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
         IF(i2.le.iend)CALL writTag(Mt1,'')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:228:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:152:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:230:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:232:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:234:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:236:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl.f:150:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prttbl1.o prttbl1.f
./prttbl1.f:141:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:151:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',cqtr(i)//' Quarter')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:146:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prttbl1.f:155:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Period '//cperiod(i))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:146:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prttbl1.f:158:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:159:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:164:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:169:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:176:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkTableCell(Mt1,'nowrap',thisOb)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:178:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',thisOb)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:183:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:186:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:188:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:197:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:205:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkTableCell(Mt1,'nowrap',thisOb)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:207:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',thisOb)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:210:22: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
         IF(i2.le.iend)CALL writTag(Mt1,'')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:214:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:216:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:218:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:219:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:242:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:252:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@',cqtr(i)//' Quarter')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:146:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prttbl1.f:256:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Period '//cperiod(i))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:146:9: previous reference to 'mkheadercellscope'
          CALL mkHeaderCellScope(Mt1,0,0,'col',amonth(i)(1:nmonth(i)),
          ^
./prttbl1.f:259:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:260:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:265:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:269:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:276:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkTableCell(Mt1,'nowrap',thisOb)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:278:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',thisOb)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:283:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:286:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:292:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:300:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkTableCell(Mt1,'nowrap',thisOb)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:302:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
           CALL mkTableCell(Mt1,'@',thisOb)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:305:22: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
         IF(i2.le.iend)CALL writTag(Mt1,'')
                       ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:309:9: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableCell(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:142:7: previous reference to 'mktablecell'
        CALL mkTableCell(Mt1,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:311:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:313:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:314:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttbl1.f:140:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prttd.o prttd.f
./prttd.f:72:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:78:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=9_8)
         CALL mkHeaderCellId(Mt1,0,0,thisId,'@',databb(k),datcol(k))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:80:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:90:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,1))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:103:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:111:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,2))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:124:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:132:7: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
        CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,3))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:145:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:154:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
         CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,4))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:167:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:170:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:177:8: warning: Reference to the procedure 'makdivid' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=3_8)
         CALL makDivId(Mt1,'f4a','@')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:39:7: previous reference to 'makdivid'
        CALL makDivId(Mt1,'f4','@')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:199:8: warning: Reference to the procedure 'mktablecellspan' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkTableCellSpan(Mt1,'row',2,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:69:7: previous reference to 'mktablecellspan'
        CALL mkTableCellSpan(Mt1,'row',2,'head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:202:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:208:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=9_8)
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@',databb(k),datcol(k))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:210:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:216:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
         CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,1))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:229:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:235:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
         CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,2))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:248:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:254:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
         CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,3))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:267:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:274:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
          CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',daylbl(j,4))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:70:7: previous reference to 'mkheadercellid'
        CALL mkHeaderCellId(Mt1,0,7,thisId,'@','@',
        ^
./prttd.f:287:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:290:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Mt1,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prttd.f:66:7: previous reference to 'writtag'
        CALL writTag(Mt1,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prttrn.o prttrn.f
flang-new-17   -c -o prtxrg.o prtxrg.f
./prtxrg.f:194:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=19_8)
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:190:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:198:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=7_8)
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@','t-value')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:190:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:204:10: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=20_8)
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:190:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:209:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:266:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=1840_8)
           CALL getstr(Colttl,Colptr,Ncoltl,icol,colstr,ncolcr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:240:9: previous reference to 'getstr'
          CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:289:13: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
              CALL mkHeaderCellId(Mt1,0,nGroup,thisId,'left','@',
              ^
./prtxrg.f:190:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:291:13: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:353:13: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
              CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
              ^
./prtxrg.f:190:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:356:13: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
              CALL mkHeaderCellId(Mt1,0,0,thisId,'left','@',
              ^
./prtxrg.f:190:10: previous reference to 'mkheadercellid'
           CALL mkHeaderCellId(Mt1,0,0,thisId,'@','@',
           ^
./prtxrg.f:381:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:384:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:387:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:400:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:412:13: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
              CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:415:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:532:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:535:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:538:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:551:15: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
                CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:580:14: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=13_8)
               CALL mkTableCellHeader(Mt1,thisHdr(1:13),'right',thisVal)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:371:13: previous reference to 'mktablecellheader'
              CALL mkTableCellHeader(Mt1,thisHdr,'right',thisVal)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:584:21: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            IF(Lprtes)CALL writTag(Mt1,'')
                      ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:602:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=384_8)
           CALL getstr(drvttl,drvptr,Ndrvtl,icol,drvstr,nchr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:240:9: previous reference to 'getstr'
          CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:614:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:616:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableTag(Mt1,'w70','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:182:9: previous reference to 'mktabletag'
          CALL mkTableTag(Mt1,'w70','Irregular Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:617:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=24_8)
          CALL mkCaption(Mt1,'Key for Regression Table')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:183:9: previous reference to 'mkcaption'
          CALL mkCaption(Mt1,'Irregular Regression Model')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:623:12: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=130_8)
             CALL getstr(COGDIC,cogptr,PCOG,msg(imsg),grpstr,ngrpcr)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:240:9: previous reference to 'getstr'
          CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:625:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
              CALL mkTableCell(Mt1,'center','&')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:186:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:628:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' for the span of data before the change date.',
              ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:631:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
              CALL mkTableCell(Mt1,'center','&&')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:186:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:634:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' coefficients differ from those estimated '//
              ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:636:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' starting at the change date.',Mt1,F,T)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:638:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
              CALL mkTableCell(Mt1,'center','@')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:186:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:641:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' for the span of data starting at the '//
              ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:644:13: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
              CALL mkTableCell(Mt1,'center','@@')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:186:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:647:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' coefficients differ from those estimated '//
              ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:649:13: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writtd(' before the change date.',Mt1,F,T)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:651:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:657:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkTableCell(Mt1,'center','*')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:186:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:658:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd('For full trading-day and stable seasonal '//
           ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:660:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' parameter estimate is obtained indirectly '//
           ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:662:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' of the directly estimated parameters that '//
           ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:664:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:668:10: warning: Reference to the procedure 'mktablecell' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=6_8)
           CALL mkTableCell(Mt1,'center','**')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:186:9: previous reference to 'mktablecell'
          CALL mkTableCell(Mt1,'head',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:670:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd('For the one coefficient trading-day effect, '//
           ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:672:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' parameter estimate is obtained indirectly '//
           ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:674:10: warning: Reference to the procedure 'writtd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL writtd(' the directly estimated parameter that '//
           ^
./prtxrg.f:626:13: previous reference to 'writtd'
              CALL writtd('The I values estimate the '//grpstr(1:ngrpcr)//
              ^
./prtxrg.f:676:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:679:10: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
           CALL writTag(Mt1,'')
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:713:12: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=31_8)
             CALL setchr(' ',31,ctype)
             ^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:432:10: previous reference to 'setchr'
           CALL setchr(' ',PCOLCR,colstr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:733:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
            CALL writTag(Mt1,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtxrg.f:185:9: previous reference to 'writtag'
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o punch.o punch.f
flang-new-17   -c -o putbak.o putbak.f
./putbak.f:26:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=36_8) vs CHARACTER(KIND=1,LEN=30_8)
         CALL inpter(PERROR,Pos,
         ^
./putbak.f:19:9: previous reference to 'inpter'
          CALL inpter(PERROR,Pos,
          ^
flang-new-17   -c -o putrev.o putrev.f
flang-new-17   -c -o putstr.o putstr.f
flang-new-17   -c -o qcmmnt.o qcmmnt.f
flang-new-17   -c -o qcontr.o qcontr.f
./qcontr.f:26:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: constant-length vs non-constant-length character dummy arguments
        CALL writTagOneLine(Ng,'h3','@',Title)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qcontr.f:15:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(Ng,'h2','@',
         ^
flang-new-17   -c -o qdoble.o qdoble.f
flang-new-17   -c -o qintgr.o qintgr.f
flang-new-17   -c -o qmap.o qmap.f
flang-new-17   -c -o qmap2.o qmap2.f
./qmap2.f:138:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
         CALL MATMLT(Tmx1,Jmatpi,R1,np,np,naly,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:139:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(Jmat,Tmx1,Ttmat2,naly,np,np,kkt,kk,kkt)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:140:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(Ttmat2,Jmatpi,Invr,naly,np,naly,kkt,kk,kkt)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:145:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(R1,Invr,r2,np,naly,naly,kk,kkt,kk) 
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:147:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(Jmat,xx,mx1,naly,np,1,kkt,kk,kkt)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:148:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(Jmat,xa,mx2,naly,np,1,kkt,kk,kkt)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:151:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(r2,mx3,xd,np,naly,1,kk,kkt,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:152:8: warning: Reference to the procedure 'add_sub' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL ADD_SUB(xa,xd,xx,np,1,kk,1)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:149:8: previous reference to 'add_sub'
         CALL ADD_SUB(mx1,mx2,mx3,naly,1,kkt,0)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:277:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(Jmat,xx,mx1,naly,np,1,kkt,kk,kkt)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:278:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(Jmat,xa,mx2,naly,np,1,kkt,kk,kkt)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:281:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL MATMLT(r2,mx3,xd,np,naly,1,kk,kkt,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:136:8: previous reference to 'matmlt'
         CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:282:8: warning: Reference to the procedure 'add_sub' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL ADD_SUB(xa,xd,xx,np,1,kk,1)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qmap2.f:149:8: previous reference to 'add_sub'
         CALL ADD_SUB(mx1,mx2,mx3,naly,1,kkt,0)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o qname.o qname.f
./qname.f:59:10: warning: Reference to the procedure 'putbak' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL putbak(Astrng(Nchr:Nchr))
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./qname.f:55:7: previous reference to 'putbak'
     20 CALL putbak(chr)
        ^^^^^^^^^^^^^^^^
flang-new-17   -c -o qquote.o qquote.f
./qquote.f:46:10: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
           CALL inpter(PERROR,Pos,'QUOTE must be shorter than '//
           ^
./qquote.f:36:10: previous reference to 'inpter'
           CALL inpter(PERROR,Pos,
           ^
./qquote.f:63:8: warning: Reference to the procedure 'inpter' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=43_8)
         CALL inpter(PERROR,Pos,
         ^
./qquote.f:36:10: previous reference to 'inpter'
           CALL inpter(PERROR,Pos,
           ^
flang-new-17   -c -o qrfac.o qrfac.f
flang-new-17   -c -o qrsolv.o qrsolv.f
flang-new-17   -c -o qsdiff.o qsdiff.f
flang-new-17   -c -o qtoken.o qtoken.f
flang-new-17   -c -o quad.o quad.f
flang-new-17   -c -o quadit.o quadit.f
flang-new-17   -c -o quadsd.o quadsd.f
flang-new-17   -c -o ratneg.o ratneg.f
flang-new-17   -c -o ratpos.o ratpos.f
flang-new-17   -c -o rdotlr.o rdotlr.f
flang-new-17   -c -o rdotls.o rdotls.f
flang-new-17   -c -o rdregm.o rdregm.f
flang-new-17   -c -o realit.o realit.f
flang-new-17   -c -o regfix.o regfix.f
flang-new-17   -c -o reglbl.o reglbl.f
flang-new-17   -c -o regvar.o regvar.f
./regvar.f:173:8: warning: Reference to the procedure 'copycl' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object attributes
         CALL copycl(tsrs,Nrxy,1,1,Ncxy,begcol,Xy)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./regvar.f:117:7: previous reference to 'copycl'
        CALL copycl(Y,Nobpf,1,1,Ncxy,Ncxy,Xy(Frstry))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./regvar.f:224:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=1840_8)
          CALL getstr(Colttl,Colptr,Nb,ielt,igrptl,nchr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./regvar.f:137:8: previous reference to 'getstr'
         CALL getstr(Grpttl,Grpptr,Ngrp,igrp,igrptl,nchr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./regvar.f:272:10: warning: Reference to the procedure 'cvrerr' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=9_8)
           CALL cvrerr('user-defined regression variables',Bgusrx,Nrusrx,
           ^
./regvar.f:266:10: previous reference to 'cvrerr'
           CALL cvrerr('user-defined regression variables',Bgusrx,Nrusrx,
           ^
./regvar.f:320:11: warning: Reference to the procedure 'copycl' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
            CALL copycl(Userx(ixymu*ncusrx+1),Nrxy,ncusrx,i,Ncxy,
            ^
./regvar.f:117:7: previous reference to 'copycl'
        CALL copycl(Y,Nobpf,1,1,Ncxy,Ncxy,Xy(Frstry))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./regvar.f:326:10: warning: Reference to the procedure 'copycl' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
           CALL copycl(Userx(ixymu*ncusrx+1),Nrxy,ncusrx,i,Ncxy,
           ^
./regvar.f:117:7: previous reference to 'copycl'
        CALL copycl(Y,Nobpf,1,1,Ncxy,Ncxy,Xy(Frstry))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./regvar.f:398:8: warning: Reference to the procedure 'td7var' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object shapes
         CALL td7var(Begxy,Sp,Nrxy,1,1,lom,F,T,tsrs,begrgm)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./regvar.f:198:8: previous reference to 'td7var'
     50  CALL td7var(Begxy,Sp,Nrxy,Ncxy,begcol,T,F,F,Xy,begrgm)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o regx11.o regx11.f
./regx11.f:89:7: warning: Reference to the procedure 'yprmy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL yprmy(A,nrtxy,apa)
        ^^^^^^^^^^^^^^^^^^^^^^^
./regx11.f:72:8: previous reference to 'yprmy'
         CALL yprmy(txy,nrtxy,apa)
         ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o replac.o replac.f
flang-new-17   -c -o replyf.o replyf.f
flang-new-17   -c -o resid.o resid.f
./resid.f:59:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=4_8)
         CALL writTag(Mt2,'
')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./resid.f:56:8: previous reference to 'writtag'
         CALL writTag(Mt2,Cbr)
         ^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o resid2.o resid2.f
flang-new-17   -c -o restor.o restor.f
./restor.f:63:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Rgv2,PB,1,Rgvrtp)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:60:8: previous reference to 'cpyint'
         CALL cpyint(Clptr(0),PB+1,1,Colptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:65:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Bb,PB,1,B)
         ^^^^^^^^^^^^^^^^^^^^
./restor.f:64:8: previous reference to 'copy'
         CALL copy(Ap2,PARIMA,1,Arimap)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:69:8: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copylg(Regfx2,PB,1,Regfx)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:66:8: previous reference to 'copylg'
         CALL copylg(Fxa,PB,1,Arimaf)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:94:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Chx2,PXPX,1,Chlxpx)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:64:8: previous reference to 'copy'
         CALL copy(Ap2,PARIMA,1,Arimap)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:95:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Chg2,PGPG,1,Chlgpg)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:64:8: previous reference to 'copy'
         CALL copy(Ap2,PARIMA,1,Arimap)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:96:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Acm2,PACM,1,Armacm)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./restor.f:64:8: previous reference to 'copy'
         CALL copy(Ap2,PARIMA,1,Arimap)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o revchk.o revchk.f
./revchk.f:77:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not specified'//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:84:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:86:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not specified'//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:92:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:94:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not specified'//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:100:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=56_8)
          CALL eWritln('Cannot calculate revision statistics for trend '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:102:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not specified'//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:108:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=61_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:110:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not specified'//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:118:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not performed '// 
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:125:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:127:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not performed '// 
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:133:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:135:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL writln('       if seasonal adjustment is not performed '//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:141:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=56_8)
          CALL eWritln('Cannot calculate revision statistics for trend'//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:143:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL writln('       if trend component not estimated during '// 
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:149:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=61_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:151:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL writln('       if trend component not estimated during '// 
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:164:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:166:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=46_8)
          CALL writln('       if regARIMA modelling is not specified.',
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:172:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=66_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:174:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=21_8)
          CALL writln('       are specified.',STDERR,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:179:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:181:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=32_8)
          CALL writln('       ARIMA model is specified.',STDERR,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:186:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=53_8)
          CALL eWritln('Cannot calculate revision statistics for'//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:188:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=51_8)
          CALL writln(
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:199:8: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=61_8) vs CHARACTER(KIND=1,LEN=59_8)
         CALL wWritln('Cannot calculate revision statistics for '//
         ^
./revchk.f:59:8: previous reference to 'wwritln'
         CALL wWritln('History analysis for estimates derived from '//
         ^
./revchk.f:201:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
         CALL writln('         factors unless either zero forecasts or '//
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:203:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=33_8)
         CALL writln('         forecasts are specified.',Fhnote,Mt2,F,T)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:218:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:221:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=60_8)
           CALL writln('       coefficients in regARIMA model is '//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:224:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=46_8)
           CALL writln('       the ARIMA model coefficients are fixed.',
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:267:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=52_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:269:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=63_8)
          CALL writln('       coefficients if no trading day regressors'//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:273:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=52_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:275:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=33_8)
          CALL writln('       coefficients if fixreg=td.',STDERR,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:278:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=53_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:281:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=60_8)
           CALL writln('       coefficients if regARIMA model is fixed'//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:284:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=60_8)
           CALL writln('       coefficients if all trading day '// 
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:426:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=66_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:428:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=43_8)
          CALL writln('       are specified via the forecast spec.',
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:460:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=43_8)
            CALL writln('         the number of forecasts (maxlead).',
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:484:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
             CALL writln('       if a summary measures run is specified'//
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:487:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
             CALL writln('       if a trend estimation run is specified'//
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:501:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:504:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
           CALL writln('       if a summary measures run is specified '//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:507:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
           CALL writln('       if a trend estimation run is specified '//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:514:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=69_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:517:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
           CALL writln('       if a summary measures run is specified '//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:520:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
           CALL writln('       if a trend estimation run is specified '//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:527:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=56_8)
          CALL eWritln('Cannot calculate revision statistics for trend'//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:529:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL writln('       if a summary measures run is specified '//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:535:9: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=61_8)
          CALL eWritln('Cannot calculate revision statistics for '//
          ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:537:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL writln('       if a summary measures run is specified '//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:554:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=76_8)
         CALL writln('       but the indirect concurrent seasonal '//
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:560:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
         CALL writln('       the revisions history analysis were '//
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:563:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=72_8)
         CALL writln('       Revisions histories of the indirect '//
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:565:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=71_8)
         CALL writln('       be produced.  Check for errors in the '//
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:567:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=67_8)
         CALL writln('       components, and ensure that a history '//
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:569:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=40_8)
         CALL writln('       spec files of all the components.',
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:579:8: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=61_8) vs CHARACTER(KIND=1,LEN=59_8)
         CALL wWritln('History analysis will not be performed for this'//
         ^
./revchk.f:59:8: previous reference to 'wwritln'
         CALL wWritln('History analysis for estimates derived from '//
         ^
./revchk.f:581:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=37_8)
         CALL writln('         of error(s) indicated above.',
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:645:9: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=61_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL wWritln('Ending date of revisions valid only for '//
          ^
./revchk.f:59:8: previous reference to 'wwritln'
         CALL wWritln('History analysis for estimates derived from '//
         ^
./revchk.f:647:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=72_8)
          CALL writln('         seasonal adjustment (seasonally '//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:649:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=23_8)
          CALL writln('         trends, etc.).',Fhnote,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:650:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=64_8)
          CALL writln('         Ending date of history analysis reset '//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:702:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writln('      to allow '//str(1:nchr-1)//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:705:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=44_8)
              CALL writln('      and the start of the history analysis.',
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:709:14: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=74_8)
               CALL writln('      Due to this change, the program will '//
               ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:712:14: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=43_8)
               CALL writln('      of the indirect seasonal adjustments.',
               ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:714:14: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
               CALL writln('      Change the starting date for all '//
               ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:717:14: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=15_8)
               CALL writln('      or later.',Fhnote,Mt2,F,T)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:735:13: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL eWritln('There must be at least '//str(1:nchr-1)//
              ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:738:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=66_8)
              CALL writln('       the model span and the start of the '//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:740:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writln('       '//Mdldsn(1:Nmddcr)//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:749:13: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL nWritln('regARIMA model span will be reset during '//
              ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:782:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL writln('      to allow '//str(1:nchr-1)//
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:785:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=44_8)
             CALL writln('      and the start of the history analysis.',
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:789:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=74_8)
              CALL writln('      Due to this change, the program will '//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:792:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=43_8)
              CALL writln('      of the indirect seasonal adjustments.',
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:794:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
              CALL writln('      Change the starting date for all '//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:797:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=15_8)
              CALL writln('      or later.',Fhnote,Mt2,F,T)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:815:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=69_8)
              CALL writln('      regARIMA model span will be reset and '//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:817:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=53_8)
              CALL writln('      will be held fixed during the history '//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:823:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=62_8)
              CALL writln('      regARIMA model parameters will be '//
              ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:825:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=23_8)
              CALL writln('      history analysis.',Fhnote,Mt2,F,T)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:838:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL nWritln('regARIMA model parameters will not be '//
          ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:840:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=34_8)
          CALL writln('      during the history analysis.',Fhnote,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:849:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL nWritln('In order to allow parameter estimation to '//
          ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:851:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=36_8)
          CALL writln('      the refresh option is ignored.',
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:886:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL eWritln('The start of the history analysis has been '//
            ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:889:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('      to allow '//str(1:nchr-1)//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:892:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=30_8)
            CALL writln('      of the history analysis.',
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:896:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=74_8)
             CALL writln('      Due to this change, the program will '//
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:898:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=43_8)
             CALL writln('      of the indirect seasonal adjustments.',
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:900:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL writln('      Change the starting date for all '//
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:903:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=15_8)
             CALL writln('      or later.',Fhnote,Mt2,F,T)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:928:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=71_8)
            CALL writln('      the data span and the start of the '//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:930:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=30_8)
            CALL writln('      adjustment is performed.',
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:932:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=65_8)
            CALL writln('      History analysis of seasonal '//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:935:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=40_8)
            CALL writln('      related changes are not performed.',
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:941:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL eWritln('There must be at least '//str(1:nchr-1)//
            ^
./revchk.f:75:9: previous reference to 'ewritln'
          CALL eWritln('Cannot calculate revision statistics for seas'//
          ^
./revchk.f:943:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=72_8)
            CALL writln('       the data span and the start of the '//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:945:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=31_8)
            CALL writln('       adjustment is performed.',
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:985:11: warning: Reference to the procedure 'wwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL wWritln('The start of the history analysis has been'//
            ^
./revchk.f:59:8: previous reference to 'wwritln'
         CALL wWritln('History analysis for estimates derived from '//
         ^
./revchk.f:987:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('         to allow '//str(1:nchr-1)//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:990:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=68_8)
            CALL writln('         irregular regression and the start '//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:994:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=77_8)
             CALL writln('         Due to this change, the program '//
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:997:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=46_8)
             CALL writln('         of the indirect seasonal adjustments.',
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:999:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL writln('         Change the starting date for all '//
             ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1002:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=18_8)
             CALL writln('         or later.',Fhnote,Mt2,F,T)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1014:11: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL nWritln('Span for irregular regression will be reset.',
            ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:1022:11: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL nwritln('Span for irregular regression will be reset '//
            ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:1024:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=66_8)
            CALL writln('      coefficients will be held fixed during '//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1032:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL nWritln('Irregular component regression parameters '//
          ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:1034:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=56_8)
          CALL writln('      once a year during the revisions history '//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1050:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL nWritln('Not enough data to perform history analysis '//
          ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:1052:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=67_8)
          CALL writln('      date; use start argument in history spec '//
          ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1055:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=60_8)
         CALL writln('      See '//SPCSEC//' of the '//PRGNAM//' '//
         ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1077:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('       starting in '//datstr(1:nchr)//'.',
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1079:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=61_8)
            CALL writln('       See '//SPCSEC//' of the '//PRGNAM//' '//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1085:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=34_8)
            CALL writln('       from default starting date.',
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1087:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=61_8)
            CALL writln('       See '//SPCSEC//' of the '//PRGNAM//' '//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1106:8: warning: Reference to the procedure 'intsrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
         CALL intsrt(Ntarsa,Targsa)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:467:19: previous reference to 'intsrt'
          IF(Lrvfct)CALL intsrt(Nfctlg,Rfctlg)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:1113:10: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL nWritln('Not enough data to perform a history '//
           ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:1119:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('       at lag '//str(1:(nchr-1))//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1123:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('       at lag '//str(1:(nchr-1))//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1127:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=61_8)
           CALL writln('       See '//SPCSEC//' of the '//PRGNAM//' '//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1141:8: warning: Reference to the procedure 'intsrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
         CALL intsrt(Ntartr,Targtr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:467:19: previous reference to 'intsrt'
          IF(Lrvfct)CALL intsrt(Nfctlg,Rfctlg)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^
./revchk.f:1148:10: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
           CALL nWritln('Not enough data to perform a history '//
           ^
./revchk.f:551:8: previous reference to 'nwritln'
         CALL nWritln('Composite seasonal adjustment performed with '//
         ^
./revchk.f:1154:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('       at lag '//str(1:(nchr-1))//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1158:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
            CALL writln('       at lag '//str(1:(nchr-1))//
            ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
./revchk.f:1162:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=70_8) vs CHARACTER(KIND=1,LEN=61_8)
           CALL writln('       See '//SPCSEC//' of the '//PRGNAM//' '//
           ^
./revchk.f:61:8: previous reference to 'writln'
         CALL writln('         cannot be done when SEATS cannot perform'// 
         ^
flang-new-17   -c -o revdrv.o revdrv.f
./revdrv.f:146:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=57_8)
            CALL writln('       trading day and/or holiday factors are '//
            ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:157:10: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=69_8)
           CALL eWritln('Cannot calculate revision statistics for '//
           ^
./revdrv.f:142:11: previous reference to 'ewritln'
            CALL eWritln('Cannot calculate revision statistics for '//
            ^
./revdrv.f:161:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=57_8)
            CALL writln('       trading day and/or holiday factors are'//
            ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:170:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=37_8)
          CALL writln('         of error(s) indicated above.',
          ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:210:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=63_8)
              CALL writln(' defined for at least one year before the'//
              ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:212:13: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=18_8)
              CALL writln(' history analysis:',Mt1,Mt2,F,F)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:215:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
             CALL writln(' '//igrptl(1:nchr),Mt1,Mt2,F,T)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:225:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=93_8)
           CALL writln(' The regressors listed above will be fixed to'//
           ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:253:9: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL setlg(T,PB,Regfx)
          ^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:252:9: previous reference to 'setlg'
          CALL setlg(T,PARIMA,Arimaf)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:302:9: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL setlg(T,PB,Regfxx)
          ^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:252:9: previous reference to 'setlg'
          CALL setlg(T,PARIMA,Arimaf)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:385:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
        CALL intlst(PUREG,usfptr,nusftl)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:291:8: previous reference to 'intlst'
         CALL intlst(PB,Otrptr,Notrtl)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:544:11: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=58_8)
            CALL eWritln('X-11 Easter adjustment cannot be estimated '//
            ^
./revdrv.f:142:11: previous reference to 'ewritln'
            CALL eWritln('Cannot calculate revision statistics for '//
            ^
./revdrv.f:546:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=37_8)
            CALL writln('       analysis specified in this run',
            ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:559:13: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=61_8)
       &      CALL writTagOneLine(Mt2,'li','@',
              ^
./revdrv.f:553:13: previous reference to 'writtagoneline'
       &      CALL writTagOneLine(Mt2,'li','@',
              ^
./revdrv.f:563:13: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=62_8)
       &      CALL writTagOneLine(Mt2,'li','@',
              ^
./revdrv.f:553:13: previous reference to 'writtagoneline'
       &      CALL writTagOneLine(Mt2,'li','@',
              ^
./revdrv.f:567:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt2,'')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:549:11: previous reference to 'writtag'
            CALL writTag(Mt2,'
    ')
            ^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:568:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=67_8)
            CALL writln('       Either choose a later starting date '//
            ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:571:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=61_8)
            CALL writln('or preadjust the series using Easter effects '//
            ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:574:11: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=15_8)
            CALL writln('regARIMA model.',STDERR,Mt2,F,T)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:765:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=57_8)
          CALL mkPOneLine(Mt1,'@',
          ^
./revdrv.f:548:11: previous reference to 'mkponeline'
            CALL mkPOneLine(Mt2,'@','This is because there are:')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:768:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL writTag(Mt1,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:549:11: previous reference to 'writtag'
            CALL writTag(Mt2,'
      ')
            ^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:769:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=6_8)
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:548:11: previous reference to 'mkponeline'
            CALL mkPOneLine(Mt2,'@','This is because there are:')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:774:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=56_8)
         CALL nWritln('The user defined regressors listed below were '//
         ^
./revdrv.f:208:13: previous reference to 'nwritln'
              CALL nWritln('The following change of regime regression '//
              ^
./revdrv.f:776:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=51_8)
         CALL writln(' for at least one span during the history '//
         ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:779:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5760_8) vs CHARACTER(KIND=1,LEN=2392_8)
          CALL getstr(usfxtl,usfptr,nusfx,igrp,outstr,ipos)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:201:11: previous reference to 'getstr'
            CALL getstr(Grpttl,Grpptr,Ngrp,igrp,igrptl,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:781:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL writln(' '//outstr(1:ipos),Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:811:8: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=59_8) vs CHARACTER(KIND=1,LEN=64_8)
         CALL nWritln('The seasonal filter used to generate the '//
         ^
./revdrv.f:208:13: previous reference to 'nwritln'
              CALL nWritln('The following change of regime regression '//
              ^
./revdrv.f:813:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=44_8)
         CALL writln('       changed during the revision period.  ',
         ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:815:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=65_8) vs CHARACTER(KIND=1,LEN=49_8)
         CALL writln('       This could increase the size of revisions.',
         ^
./revdrv.f:144:11: previous reference to 'writln'
            CALL writln('       if a trend estimation run is specified'//
            ^
./revdrv.f:841:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:549:11: previous reference to 'writtag'
            CALL writTag(Mt2,'
        ')
            ^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:886:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:549:11: previous reference to 'writtag'
            CALL writTag(Mt2,'
          ')
            ^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:887:8: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL mkPOneLine(Ng,'@',' ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:548:11: previous reference to 'mkponeline'
            CALL mkPOneLine(Mt2,'@','This is because there are:')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:930:9: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=1_8)
          CALL mkTableTag(Mt1,'w40','@')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:833:8: previous reference to 'mktabletag'
         CALL mkTableTag(Ng,'w60',
         ^
./revdrv.f:931:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=34_8)
          CALL mkCaption(Mt1,'Likelihood statistic history table')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:835:8: previous reference to 'mkcaption'
         CALL mkCaption(Ng,
         ^
./revdrv.f:934:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=14_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','Log Likelihood')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./revdrv.f:839:8: previous reference to 'mkheadercellscope'
         CALL mkHeaderCellScope(Ng,0,0,'col','@',
         ^
./revdrv.f:935:9: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=64_8)
          CALL mkHeaderCellScope(Mt1,0,0,'col','@','AICtest '//
            ^
./x11aic.f:244:9: previous reference to 'mkcaption'
          CALL mkCaption(Ng,'AICtest '//
          ^
./x11aic.f:437:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=14_8) vs CHARACTER(KIND=1,LEN=4_8)
          CALL writTag(Mt1,'
          ')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:252:9: previous reference to 'writtag'
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:522:9: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=78_8) vs CHARACTER(KIND=1,LEN=79_8)
          CALL mkCaption(Ng,'AICtest '//
          ^
./x11aic.f:244:9: previous reference to 'mkcaption'
          CALL mkCaption(Ng,'AICtest '//
          ^
./x11aic.f:537:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=1196_8)
          CALL getstr(Usrttl,Usrptr,Ncusrx,i,effttl,nchr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:293:11: previous reference to 'getstr'
            CALL getstr(Colttl,Colptr,Ncoltl,icol,effttl,nchr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:540:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
           CALL adrgef(bu2(i),effttl(1:nchr),'User-defined',PRGTUD,
           ^
./x11aic.f:191:11: previous reference to 'adrgef'
       &    CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:543:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
           CALL adrgef(bu2(i),effttl(1:nchr),'User-defined Trading Day',
           ^
./x11aic.f:191:11: previous reference to 'adrgef'
       &    CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:546:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
           CALL adrgef(bu2(i),effttl(1:nchr),'User-defined Leap Year',
           ^
./x11aic.f:191:11: previous reference to 'adrgef'
       &    CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:549:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
           CALL adrgef(bu2(i),effttl(1:nchr),'User-defined LOM',
           ^
./x11aic.f:191:11: previous reference to 'adrgef'
       &    CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:552:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
           CALL adrgef(bu2(i),effttl(1:nchr),'User-defined LOQ',
           ^
./x11aic.f:191:11: previous reference to 'adrgef'
       &    CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:555:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
           CALL adrgef(bu2(i),effttl(1:nchr),'User-defined AO',
           ^
./x11aic.f:191:11: previous reference to 'adrgef'
       &    CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11aic.f:558:10: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
           CALL adrgef(bu2(i),effttl(1:nchr),'User-defined Holiday',
           ^
./x11aic.f:191:11: previous reference to 'adrgef'
       &    CALL adrgef(DNOTST,'Leap Year','Leap Year',PRGTLY,F,F)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o x11ari.o x11ari.f
./x11ari.f:179:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=69_8) vs CHARACTER(KIND=1,LEN=34_8)
           CALL writln('      monthly or quarterly series.',
           ^
./x11ari.f:121:9: previous reference to 'writln'
          CALL writln('The program will not estimate a regARIMA model '//
          ^
./x11ari.f:186:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=69_8) vs CHARACTER(KIND=1,LEN=60_8)
           CALL writln('NOTE: The program will only generate a SEATS '//
           ^
./x11ari.f:121:9: previous reference to 'writln'
          CALL writln('The program will not estimate a regARIMA model '//
          ^
./x11ari.f:188:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=69_8) vs CHARACTER(KIND=1,LEN=56_8)
           CALL writln('      monthly, bimonthly, quarterly, biannual '//
           ^
./x11ari.f:121:9: previous reference to 'writln'
          CALL writln('The program will not estimate a regARIMA model '//
          ^
./x11ari.f:242:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=69_8) vs CHARACTER(KIND=1,LEN=180_8)
          CALL writln(errext,STDERR,Mt2,T,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11ari.f:121:9: previous reference to 'writln'
          CALL writln('The program will not estimate a regARIMA model '//
          ^
flang-new-17   -c -o x11int.o x11int.f
./x11int.f:49:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(0D0,PY1,Stdev)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11int.f:27:7: previous reference to 'setdp'
        CALL setdp(rinit,PLEN,Sts)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o x11mdl.o x11mdl.f
./x11mdl.f:90:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(ZERO,PXPX,Chlxpx)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:87:7: previous reference to 'setdp'
        CALL setdp(ZERO,PA,a)
        ^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:176:10: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
           CALL setdp(DNOTST,PB,B)
           ^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:87:7: previous reference to 'setdp'
        CALL setdp(ZERO,PA,a)
        ^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:199:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copy(Sti(irridx),Nobspf,-1,trnsrs)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:174:10: previous reference to 'copy'
           CALL copy(Bx,PB,1,B)
           ^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:249:11: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=35_8)
       &    CALL mkPOneLine(Mt1,'@','Automatic AO outlier identification')
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:266:29: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=17_8)
            IF(Svltab(LSLXTS))CALL mkPOneLine(Ng,'@','AICtdX : accepted')
                              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:269:29: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=17_8)
            IF(Svltab(LSLXTS))CALL mkPOneLine(Ng,'@','AICtdX : rejected')
                              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:282:14: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=21_8)
       &       CALL mkPOneLine(Ng,'@','AICeasterX : accepted')
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:290:14: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=21_8)
       &       CALL mkPOneLine(Ng,'@','AICeasterX : rejected')
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:304:14: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=19_8)
       &       CALL mkPOneLine(Ng,'@','AICuserX : accepted')
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:308:14: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=19_8)
       &       CALL mkPOneLine(Ng,'@','AICuserX : rejected')
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:351:11: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL setdp(ZERO,ntmp,ftmp)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:87:7: previous reference to 'setdp'
        CALL setdp(ZERO,PA,a)
        ^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:353:11: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            CALL setdp(ONE,ntmp,ftmp)
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:87:7: previous reference to 'setdp'
        CALL setdp(ZERO,PA,a)
        ^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:499:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Sti(Pos1ob),Nspobs,-1,trnsrs)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:174:10: previous reference to 'copy'
           CALL copy(Bx,PB,1,B)
           ^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:565:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          CALL setdp(DNOTST,7,Dx11)
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:87:7: previous reference to 'setdp'
        CALL setdp(ZERO,PA,a)
        ^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:649:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=6_8)
             CALL mkPOneLine(Mt1,'@',' ')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:651:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=6_8)
             CALL mkPOneLine(Mt2,'@',' ')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:678:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8)
              CALL mkHeaderCellScope(Mt1,0,0,'col','Tuesday','Tue')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:679:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=9_8)
              CALL mkHeaderCellScope(Mt1,0,0,'col','Wednesday','Wed')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:680:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
              CALL mkHeaderCellScope(Mt1,0,0,'col','Thursday','Thu')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:682:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
              CALL mkHeaderCellScope(Mt1,0,0,'col','Saturday','Sat')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:683:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=14_8)
              CALL mkHeaderCellScope(Mt1,0,0,'col','Sunday derived',
              ^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:685:13: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:676:13: previous reference to 'writtag'
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:689:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=7_8)
              CALL mkHeaderCellScope(Mt2,0,0,'col','Tuesday','Tue')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:690:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=9_8)
              CALL mkHeaderCellScope(Mt2,0,0,'col','Wednesday','Wed')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:691:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
              CALL mkHeaderCellScope(Mt2,0,0,'col','Thursday','Thu')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:693:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=8_8)
              CALL mkHeaderCellScope(Mt2,0,0,'col','Saturday','Sat')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:694:13: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=14_8)
              CALL mkHeaderCellScope(Mt2,0,0,'col','Sunday derived',
              ^
./x11mdl.f:677:13: previous reference to 'mkheadercellscope'
              CALL mkHeaderCellScope(Mt1,0,0,'col','Monday','Mon')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:696:13: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL writTag(Mt2,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:676:13: previous reference to 'writtag'
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:708:13: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:676:13: previous reference to 'writtag'
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:709:13: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
              CALL writTag(Mt2,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:676:13: previous reference to 'writtag'
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:711:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
             CALL writTag(Mt1,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:676:13: previous reference to 'writtag'
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:712:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=6_8)
             CALL mkPOneLine(Mt1,'@',' ')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:713:12: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=8_8)
             CALL writTag(Mt2,'')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:676:13: previous reference to 'writtag'
              CALL writTag(Mt1,'')
              ^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:714:12: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=6_8)
             CALL mkPOneLine(Mt2,'@',' ')
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:244:8: previous reference to 'mkponeline'
         CALL mkPOneLine(Mt1,'@','Extreme Value Adjustment Method')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:740:12: warning: Reference to the procedure 'ewritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=129_8) vs CHARACTER(KIND=1,LEN=80_8)
             CALL eWritln('At least one of the stock trading day '//
             ^
./x11mdl.f:638:12: previous reference to 'ewritln'
             CALL eWritln('Cannot generate factor necessary to '//
             ^
./x11mdl.f:747:12: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=107_8) vs CHARACTER(KIND=1,LEN=65_8)
             CALL writln('Use the regression spec to estimate the '//
             ^
./x11mdl.f:743:12: previous reference to 'writln'
             CALL writln('irregular regression model produce'//
             ^
./x11mdl.f:765:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copy(fcal(1),nfac,-1,Faccal(Pos1bk))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:174:10: previous reference to 'copy'
           CALL copy(Bx,PB,1,B)
           ^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:766:17: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        IF(Havxtd)CALL copy(ftd(1),nfac,-1,Factd(Pos1bk))
                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:174:10: previous reference to 'copy'
           CALL copy(Bx,PB,1,B)
           ^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:767:17: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        IF(Havxhl)CALL copy(fhol(1),nfac,-1,Facxhl(Pos1bk))
                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:174:10: previous reference to 'copy'
           CALL copy(Bx,PB,1,B)
           ^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:792:24: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
         IF(Prttab(fext))CALL table(Facxhl,Pos1ob,lastpr,21,1,1,dvec,fext)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:774:24: previous reference to 'table'
         IF(Prttab(fext))CALL table(Factd,Pos1ob,lastpr,16,1,1,Dx11,fext)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:810:24: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
         IF(Prttab(fext))CALL table(Faccal,Pos1ob,lastpr,22,1,1,dvec,fext)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:774:24: previous reference to 'table'
         IF(Prttab(fext))CALL table(Factd,Pos1ob,lastpr,16,1,1,Dx11,fext)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:877:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          CALL copy(fcal(1),nfac,-1,Faccal(Pos1bk))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:174:10: previous reference to 'copy'
           CALL copy(Bx,PB,1,B)
           ^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:878:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          CALL copy(ftd(1),nfac,-1,Factd(Pos1bk))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11mdl.f:174:10: previous reference to 'copy'
           CALL copy(Bx,PB,1,B)
           ^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o x11plt.o x11plt.f
flang-new-17   -c -o x11pt1.o x11pt1.f
./x11pt1.f:76:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copy(Series,Posfob,-1,Stoap)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:75:7: previous reference to 'copy'
        CALL copy(Series(Pos1ob),Nspobs,-1,Stcsi(Pos1ob))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:77:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copy(Series,Posfob,-1,Stopp)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:75:7: previous reference to 'copy'
        CALL copy(Series(Pos1ob),Nspobs,-1,Stcsi(Pos1ob))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:78:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copy(Series,Posfob,-1,Stocal)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:75:7: previous reference to 'copy'
        CALL copy(Series(Pos1ob),Nspobs,-1,Stcsi(Pos1ob))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:145:10: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=35_8)
           CALL prtshd('Original Series with Constant Added',
           ^
./x11pt1.f:119:9: previous reference to 'prtshd'
          CALL prtshd('Data for regARIMA modeling',Begspn,Sp,
          ^
./x11pt1.f:147:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
           CALL prttbl(Begspn,Sp,Series(Pos1ob),Posfob-Pos1ob+1,'Data',
           ^
./x11pt1.f:121:9: previous reference to 'prttbl'
          CALL prttbl(Begspn,Sp,Series(Pos1ob),Posfob-Pos1ob+1,'Data',
          ^
./x11pt1.f:209:10: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=57_8)
           CALL prtshd(
           ^
./x11pt1.f:119:9: previous reference to 'prtshd'
          CALL prtshd('Data for regARIMA modeling',Begspn,Sp,
          ^
./x11pt1.f:212:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
           CALL prttbl(Begspn,Sp,Sto(Pos1ob),Posfob-Pos1ob+1,'Data',Kdec,
           ^
./x11pt1.f:121:9: previous reference to 'prttbl'
          CALL prttbl(Begspn,Sp,Series(Pos1ob),Posfob-Pos1ob+1,'Data',
          ^
./x11pt1.f:229:10: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=47_8)
           CALL prtshd('Prior Adjusted Series (Permanent Prior Factors)',
           ^
./x11pt1.f:119:9: previous reference to 'prtshd'
          CALL prtshd('Data for regARIMA modeling',Begspn,Sp,
          ^
./x11pt1.f:231:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
           CALL prttbl(Begspn,Sp,Stopp(Pos1ob),Posfob-Pos1ob+1,'Data',
           ^
./x11pt1.f:121:9: previous reference to 'prttbl'
          CALL prttbl(Begspn,Sp,Series(Pos1ob),Posfob-Pos1ob+1,'Data',
          ^
./x11pt1.f:254:12: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
       &     CALL table(Stptd,Pos1ob,Posfob,4,1,1,Dwt,LXRGA4)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:116:9: previous reference to 'table'
          CALL table(Series,Pos1ob,Posfob,1,1,2,dvec,fext)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:302:10: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=21_8)
           CALL prtshd('Prior Adjusted Series',Begspn,Sp,Posfob-Pos1ob+1)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt1.f:119:9: previous reference to 'prtshd'
          CALL prtshd('Data for regARIMA modeling',Begspn,Sp,
          ^
./x11pt1.f:325:10: warning: Reference to the procedure 'prtshd' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=26_8) vs CHARACTER(KIND=1,LEN=47_8)
           CALL prtshd('Prior Adjusted Series (Permanent Prior Factors)',
           ^
./x11pt1.f:119:9: previous reference to 'prtshd'
          CALL prtshd('Data for regARIMA modeling',Begspn,Sp,
          ^
./x11pt1.f:327:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: constant-length vs non-constant-length character dummy arguments
           CALL prttbl(Begspn,Sp,Stopp(Pos1ob),Posfob-Pos1ob+1,'Data',
           ^
./x11pt1.f:121:9: previous reference to 'prttbl'
          CALL prttbl(Begspn,Sp,Series(Pos1ob),Posfob-Pos1ob+1,'Data',
          ^
flang-new-17   -c -o x11pt2.o x11pt2.f
./x11pt2.f:661:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          CALL copy(Sto,Posffc,1,Stci)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:406:7: previous reference to 'copy'
        CALL copy(Stcsi(Pos1bk),Posffc-Pos1bk+1,1,Sto(Pos1bk))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:698:24: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
         IF(Prttab(fext))CALL table(Sti,Pos1ob,Posfob,13,1,3,Stdev,fext)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:159:11: previous reference to 'table'
       &    CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:748:10: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
           CALL table(Stwt,Pos1ob,Posfob,17,1,4,Stdev,fext)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:159:11: previous reference to 'table'
       &    CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:769:10: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
           CALL table(Stwt,Posfob+1,Posffc,17,2,4,Stdev,LXEIWF)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:159:11: previous reference to 'table'
       &    CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:783:25: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
          IF(Prttab(fext))CALL table(Factd,Pos1ob,Posfob,18,1,1,Dx11,fext)
                          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt2.f:159:11: previous reference to 'table'
       &    CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o x11pt3.o x11pt3.f
./x11pt3.f:383:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
        CALL copy(Stci(Pos1bk),Nbfpob,1,Ckhs(Pos1bk))
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:71:7: previous reference to 'copy'
        CALL copy(Sprior,PLEN,1,sp2)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:470:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          CALL copy(Sts(Pos1bk),k2,1,ststd(Pos1bk))
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:71:7: previous reference to 'copy'
        CALL copy(Sprior,PLEN,1,sp2)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:477:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Stcsi(Pos1bk),Nbfpob,1,Stci(Pos1bk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:71:7: previous reference to 'copy'
        CALL copy(Sprior,PLEN,1,sp2)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:520:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Series(Pos1bk),Nbfpob,1,Ckhs(Pos1bk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:71:7: previous reference to 'copy'
        CALL copy(Sprior,PLEN,1,sp2)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:521:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Series(Pos1bk),Nbfpob,1,Stci(Pos1bk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:71:7: previous reference to 'copy'
        CALL copy(Sprior,PLEN,1,sp2)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:526:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Sts(Pos1bk),k2,1,ststd(Pos1bk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:71:7: previous reference to 'copy'
        CALL copy(Sprior,PLEN,1,sp2)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:666:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=67_8)
           CALL writln('Negative values in the seasonally '//
           ^
./x11pt3.f:664:9: previous reference to 'writln'
          CALL writln(' removing the temporary constant.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:668:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=35_8)
           CALL writln(' zero before forcing annual totals.',
           ^
./x11pt3.f:664:9: previous reference to 'writln'
          CALL writln(' removing the temporary constant.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:811:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=66_8)
          CALL nWritln('Values ≤ 0 were found in the forced '//
          ^
./x11pt3.f:662:9: previous reference to 'nwritln'
          CALL nWritln('Negative values were created in the seasonally'//
          ^
./x11pt3.f:814:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=76_8)
           CALL writln('      These values were corrected by replacing '//
           ^
./x11pt3.f:664:9: previous reference to 'writln'
          CALL writln(' removing the temporary constant.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:816:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=72_8)
           CALL writln('      and prorating the modified forced '//
           ^
./x11pt3.f:664:9: previous reference to 'writln'
          CALL writln(' removing the temporary constant.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:818:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=24_8)
           CALL writln('      the target series.',Mt1,Mt2,F,T)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:664:9: previous reference to 'writln'
          CALL writln(' removing the temporary constant.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:820:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=77_8)
           CALL writln('      These values were corrected by replacing '//
           ^
./x11pt3.f:664:9: previous reference to 'writln'
          CALL writln(' removing the temporary constant.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt3.f:878:9: warning: Reference to the procedure 'nwritln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=68_8) vs CHARACTER(KIND=1,LEN=70_8)
          CALL nWritln('Values <= 0 were found in the final forced '//
          ^
./x11pt3.f:662:9: previous reference to 'nwritln'
          CALL nWritln('Negative values were created in the seasonally'//
          ^
./x11pt3.f:880:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=62_8)
          CALL writln('      Forcing factors for these observations '//
          ^
./x11pt3.f:664:9: previous reference to 'writln'
          CALL writln(' removing the temporary constant.',Mt1,Mt2,F,T)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o x11pt4.o x11pt4.f
./x11pt4.f:223:23: warning: Reference to the procedure 'svchsd' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=3_8)
          IF(Lsumm.gt.0)CALL svchsd(Temp,mfda,Posfob,Iagr,Muladd,'e6a')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:189:21: previous reference to 'svchsd'
        IF(Lsumm.gt.0)CALL svchsd(Temp,mfda,Posfob,Iagr,Muladd,'e5')
                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:234:23: warning: Reference to the procedure 'svchsd' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=3_8)
          IF(Lsumm.gt.0)CALL svchsd(Temp,mfda,Posfob,Iagr,Muladd,'e6r')
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:189:21: previous reference to 'svchsd'
        IF(Lsumm.gt.0)CALL svchsd(Temp,mfda,Posfob,Iagr,Muladd,'e5')
                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:361:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL sumry(Sti,Ibar,Ibar2,Isq,Isd,0,Pos1ob,Posfob)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:382:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL sumry(Stome,Ombar,ombar2,ombrsq,ombrsd,0,Pos1ob,Posfob)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:388:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=37_8)
         CALL writln('      variance could not be computed:',
         ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:392:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=56_8)
         CALL writln('        the original series adjusted for extreme '//
         ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:394:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt2,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:397:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL sumry(Stime,Imbar,imbar2,Isq,imbrsd,0,Pos1ob,Posfob)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:406:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=37_8)
          CALL writln('      variance could not be computed:',
          ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:412:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=32_8)
         CALL writln('        the irregular component.',STDERR,Mt2,F,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:413:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt2,'
          • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:432:8: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
         CALL sumry(Sts,Sbar,Sbar2,Ssq,Ssd,0,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:435:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL sumry(Stc,Cbar,Cbar2,Csq,Csd,0,Pos1ob,Posfob)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:442:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=37_8)
          CALL writln('      variance could not be computed:',
          ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:448:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=28_8)
         CALL writln('        the trend component.',STDERR,Mt2,F,F)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:449:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt2,'
          • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:508:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=37_8)
          CALL writln('      variance could not be computed:',
          ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:515:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=74_8)
          CALL writln('        the original series adjusted for '//
          ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:517:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=27_8)
          CALL writln('        regression effects.',STDERR,Mt2,F,F)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:518:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt2,'
          • ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:523:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt2,'
          • ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:526:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=64_8)
          CALL writln('        the original series adjusted for user-'//
          ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:528:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=16_8)
          CALL writln('        effects.',STDERR,Mt2,F,F)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:529:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt2,'
          • ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:532:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=28_8)
          CALL writln('        the original series.',STDERR,Mt2,F,F)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:533:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Mt2,'
          • ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:536:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL sumry(Series,Obar,Obar2,Osq,Osd,0,Pos1ob,Posfob)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:558:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=37_8)
          CALL writln('      variance could not be computed:',
          ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:564:8: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=66_8) vs CHARACTER(KIND=1,LEN=58_8)
         CALL writln('        the original series with the linear '//
         ^
./x11pt4.f:386:8: previous reference to 'writln'
         CALL writln('      the series listed below have either a '//
         ^
./x11pt4.f:566:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt2,'
          • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
        • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:569:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt2,'
        ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:391:8: previous reference to 'writtag'
         CALL writTag(Mt2,'
      • ')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:629:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL sumry(Stci,Cibar,Cibar2,dvec,Cisd,1,Pos1ob,Posfob)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:666:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        CALL sumry(Stcime,Cimbar,dvec,dvec,dvec,3,Pos1ob,Posfob)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:710:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL sumry(Stmcd,Smbar,Smbar2,dvec,Smsd,1,mfda,mlda)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:339:8: previous reference to 'sumry'
         CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:750:8: warning: Reference to the procedure 'svf2f3' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=2_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL svf2f3(Nform,Ng,Savtab(LX11F2),Savtab(LX11F3),'f')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x11pt4.f:745:8: previous reference to 'svf2f3'
         CALL svf2f3(Nform,Ng,Savtab(LCMPF2),Savtab(LCMPF3),'if')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o x11ref.o x11ref.f
flang-new-17   -c -o x12hdr.o x12hdr.f
./x12hdr.f:259:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8)
          CALL writTag(Mt1,'
        ')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:254:9: previous reference to 'writtag'
          CALL writTag(Mt1,'
        ')
          ^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:298:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8)
            CALL writTag(Mt1,'
          ')
            ^^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:254:9: previous reference to 'writtag'
          CALL writTag(Mt1,'
          ')
          ^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:309:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'
        ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:254:9: previous reference to 'writtag'
          CALL writTag(Mt1,'
        ')
          ^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:310:11: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8)
            CALL writTag(Mt1,'
        • ')
            ^^^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:254:9: previous reference to 'writtag'
          CALL writTag(Mt1,'
        ')
          ^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:340:9: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=133_8) vs CHARACTER(KIND=1,LEN=20_8)
          CALL setchr(' ',20,adjstr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:143:7: previous reference to 'setchr'
        CALL setchr(' ',LINLEN,xb)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:635:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt1,'
      ')
         ^^^^^^^^^^^^^^^^^^^^^^^^^
./x12hdr.f:254:9: previous reference to 'writtag'
          CALL writTag(Mt1,'
      ')
          ^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o x12run.o x12run.f
./x12run.f:157:10: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=74_8) vs CHARACTER(KIND=1,LEN=69_8)
           CALL writln('       seasonal adjustment of the total series '//
           ^
./x12run.f:154:10: previous reference to 'writln'
           CALL writln('       series used for this composite '//
           ^
./x12run.f:160:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=74_8) vs CHARACTER(KIND=1,LEN=67_8)
          CALL writln('       Correct the error(s) for the component '//
          ^
./x12run.f:154:10: previous reference to 'writln'
           CALL writln('       series used for this composite '//
           ^
./x12run.f:162:9: warning: Reference to the procedure 'writln' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
          CALL writln('       metafile '//Mtafil(1:Nmf)//'.',
          ^
./x12run.f:154:10: previous reference to 'writln'
           CALL writln('       series used for this composite '//
           ^
./x12run.f:254:9: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=63_8) vs CHARACTER(KIND=1,LEN=100_8)
          CALL setchr(' ',100,Tabtbl)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x12run.f:51:7: previous reference to 'setchr'
        CALL setchr(' ',63,blnk)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./x12run.f:288:9: warning: Reference to the procedure 'setchr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=63_8) vs CHARACTER(KIND=1,LEN=100_8)
          CALL setchr(' ',100,Tabtbl)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./x12run.f:51:7: previous reference to 'setchr'
        CALL setchr(' ',63,blnk)
        ^^^^^^^^^^^^^^^^^^^^^^^^
./x12run.f:299:14: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=49_8) vs CHARACTER(KIND=1,LEN=43_8)
       &       CALL mkPOneLine(Ng,'center',
               ^
./x12run.f:261:14: previous reference to 'mkponeline'
       &       CALL mkPOneLine(Ng,'center',
               ^
flang-new-17   -c -o xchng.o xchng.f
flang-new-17   -c -o xpand.o xpand.f
flang-new-17   -c -o xprmx.o xprmx.f
flang-new-17   -c -o xrgdiv.o xrgdiv.f
flang-new-17   -c -o xrgdrv.o xrgdrv.f
./xrgdrv.f:72:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(Usrptr(0),PUREG+1,1,ubkptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:71:8: previous reference to 'cpyint'
         CALL cpyint(Usrtyp,PUREG,1,ubktyp)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:97:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(Sprior,Posfob,-1,spr)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:70:8: previous reference to 'copy'
         CALL copy(Userx,PUSERX,1,ubkx)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:156:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
          CALL cpyint(Endxrg,2,1,Endspn)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:71:8: previous reference to 'cpyint'
         CALL cpyint(Usrtyp,PUREG,1,ubktyp)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:213:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL copy(spr,Posfob,-1,Sprior)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:70:8: previous reference to 'copy'
         CALL copy(Userx,PUSERX,1,ubkx)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:227:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
         CALL cpyint(ubkptr(0),PUREG+1,1,Usrptr(0))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xrgdrv.f:71:8: previous reference to 'cpyint'
         CALL cpyint(Usrtyp,PUREG,1,ubktyp)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o xrghol.o xrghol.f
flang-new-17   -c -o xrgtrn.o xrgtrn.f
flang-new-17   -c -o xrlkhd.o xrlkhd.f
flang-new-17   -c -o xtrm.o xtrm.f
./xtrm.f:45:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        CALL setdp(ZERO,Ny,Stdper)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./xtrm.f:44:7: previous reference to 'setdp'
        CALL setdp(ONE,PLEN,Stwt)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
./xtrm.f:111:23: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          IF(istep.eq.2)CALL setdp(DNOTST,PY1,Stdev)
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./xtrm.f:44:7: previous reference to 'setdp'
        CALL setdp(ONE,PLEN,Stwt)
        ^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o yprmy.o yprmy.f
flang-new-17   -c -o yrly.o yrly.f
flang-new-17   -c -o rvarma.o rvarma.f
flang-new-17   -c -o rvtdrg.o rvtdrg.f
./rvtdrg.f:77:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1840_8) vs CHARACTER(KIND=1,LEN=5760_8)
           CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rvtdrg.f:68:11: previous reference to 'getstr'
            CALL getstr(Colttl,Colptr,Ncoltl,icol,colstr,ncolcr)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o prtukp.o prtukp.f
./prtukp.f:27:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=71_8) vs CHARACTER(KIND=1,LEN=49_8)
         CALL writTagOneLine(Mt,'h3','@',
         ^
./prtukp.f:23:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(Mt,'h3','@','  Peak probabilities for '//
         ^
./prtukp.f:50:8: warning: Reference to the procedure 'mktabletag' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=69_8) vs CHARACTER(KIND=1,LEN=47_8)
         CALL mkTableTag(Mt,'w60','Peak probabilities for '//
         ^
./prtukp.f:45:8: previous reference to 'mktabletag'
         CALL mkTableTag(Mt,'w60','Peak probabilities for '//
         ^
./prtukp.f:52:8: warning: Reference to the procedure 'mkcaption' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=69_8) vs CHARACTER(KIND=1,LEN=47_8)
         CALL mkCaption(Mt,'Peak probabilities for '//
         ^
./prtukp.f:47:8: previous reference to 'mkcaption'
         CALL mkCaption(Mt,'Peak probabilities for '//
         ^
./prtukp.f:56:7: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=1_8) vs CHARACTER(KIND=1,LEN=4_8)
        CALL writTagOneLine(Mt,'td','head',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:23:8: previous reference to 'writtagoneline'
         CALL writTagOneLine(Mt,'h3','@','  Peak probabilities for '//
         ^
./prtukp.f:62:7: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=11_8)
        CALL mkHeaderCellScope(Mt,0,0,'col','Trading Day','TD')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:59:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt,0,0,'col','Seasonal Frequency '//
           ^
./prtukp.f:63:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:55:7: previous reference to 'writtag'
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:161:8: warning: Reference to the procedure 'mkheadercellscope' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object types: CHARACTER(KIND=1,LEN=20_8) vs CHARACTER(KIND=1,LEN=1_8)
         CALL mkHeaderCellScope(Mt,0,0,'row','@',thisLb(1:nLb))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:59:10: previous reference to 'mkheadercellscope'
           CALL mkHeaderCellScope(Mt,0,0,'col','Seasonal Frequency '//
           ^
./prtukp.f:179:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Mt,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:55:7: previous reference to 'writtag'
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:181:7: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:55:7: previous reference to 'writtag'
        CALL writTag(Mt,'')
        ^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:182:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
        CALL mkPOneLine(Mt,'@',' ')
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./prtukp.f:34:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Mt,'@','Tukey spectrum estimated from '//
        ^
./prtukp.f:185:7: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: constant-length vs non-constant-length character dummy arguments
        CALL mkPOneLine(Mt,'@','  ----------'//Cbr//
        ^
./prtukp.f:34:7: previous reference to 'mkponeline'
        CALL mkPOneLine(Mt,'@','Tukey spectrum estimated from '//
        ^
flang-new-17   -c -o svtukp.o svtukp.f
flang-new-17   -c -o savtpk.o savtpk.f
./savtpk.f:44:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:46:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=6_8)
         CALL mkHeaderCellId(Ng,0,0,'stuksp','@','@',
         ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:49:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:51:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=7_8)
         CALL mkHeaderCellId(Ng,0,0,'tdtuksp','@','@',
         ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:53:8: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=13_8)
         CALL mkTableCellHeader(Ng,'col99 tdtuksp','center',
         ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:55:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:59:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:61:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=8_8)
         CALL mkHeaderCellId(Ng,0,0,'stuksp90','@','@',
         ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:63:8: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL mkTableCellHeader(Ng,'col90 stuksp90','center',
         ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:65:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:67:8: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=9_8)
         CALL mkHeaderCellId(Ng,0,0,'tdtuksp90','@','@',
         ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:69:8: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=15_8)
         CALL mkTableCellHeader(Ng,'col90 tdtuksp90','center',
         ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:71:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:77:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:81:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=9_8)
          CALL mkHeaderCellId(Ng,0,0,'stukspdir','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:83:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=15_8)
          CALL mkTableCellHeader(Ng,'col99 stukspdir','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:85:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:87:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=10_8)
          CALL mkHeaderCellId(Ng,0,0,'tdtukspdir','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:89:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=16_8)
          CALL mkTableCellHeader(Ng,'col99 tdtukspdir','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:91:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:95:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=9_8)
          CALL mkHeaderCellId(Ng,0,0,'stukspind','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:97:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=15_8)
          CALL mkTableCellHeader(Ng,'col99 stukspind','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:99:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:101:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=10_8)
          CALL mkHeaderCellId(Ng,0,0,'tdtukspind','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:104:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=16_8)
          CALL mkTableCellHeader(Ng,'col99 tdtukspind','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:106:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:112:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:116:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=11_8)
          CALL mkHeaderCellId(Ng,0,0,'stukspdir90','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:118:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=17_8)
          CALL mkTableCellHeader(Ng,'col90 stukspdir90','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:120:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:122:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=12_8)
          CALL mkHeaderCellId(Ng,0,0,'tdtukspdir90','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:124:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=18_8)
          CALL mkTableCellHeader(Ng,'col90 tdtukspdir90','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:126:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:130:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=11_8)
          CALL mkHeaderCellId(Ng,0,0,'stukspind90','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:132:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=17_8)
          CALL mkTableCellHeader(Ng,'col90 stukspind90','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:134:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:136:9: warning: Reference to the procedure 'mkheadercellid' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=5_8) vs CHARACTER(KIND=1,LEN=12_8)
          CALL mkHeaderCellId(Ng,0,0,'tdtukspind90','@','@',
          ^
./savtpk.f:42:8: previous reference to 'mkheadercellid'
         CALL mkHeaderCellId(Ng,0,2,'col99','@','@',
         ^
./savtpk.f:139:9: warning: Reference to the procedure 'mktablecellheader' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=12_8) vs CHARACTER(KIND=1,LEN=18_8)
          CALL mkTableCellHeader(Ng,'col90 tdtukspind90','center',
          ^
./savtpk.f:48:8: previous reference to 'mktablecellheader'
         CALL mkTableCellHeader(Ng,'col99 stuksp','center',Cstuk(1:nstuk))
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:141:9: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=5_8)
          CALL writTag(Ng,'')
          ^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:146:8: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=4_8) vs CHARACTER(KIND=1,LEN=14_8)
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./savtpk.f:41:8: previous reference to 'writtag'
         CALL writTag(Ng,'')
         ^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o m2q.o m2q.f
flang-new-17   -c -o chqsea.o chqsea.f
flang-new-17   -c -o npsa.o npsa.f
flang-new-17   -c -o gennpsa.o gennpsa.f
./gennpsa.f:120:9: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=61_8) vs CHARACTER(KIND=1,LEN=38_8)
          CALL writTagOneLine(Mt1,'h3','@',
          ^
./gennpsa.f:116:9: previous reference to 'writtagoneline'
          CALL writTagOneLine(Mt1,'h3','@',
          ^
./gennpsa.f:187:8: warning: Reference to the procedure 'writtagoneline' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object types: CHARACTER(KIND=1,LEN=61_8) vs CHARACTER(KIND=1,LEN=38_8)
         CALL writTagOneLine(Ng,'h3','@',
         ^
./gennpsa.f:116:9: previous reference to 'writtagoneline'
          CALL writTagOneLine(Mt1,'h3','@',
          ^
flang-new-17   -c -o prarma.o prarma.f
./prarma.f:58:33: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=6_8)
          IF(iflt.eq.AR.and.Lhtml)CALL writTag(Fh,Cbr)
                                  ^^^^^^^^^^^^^^^^^^^^
./prarma.f:26:8: previous reference to 'writtag'
         CALL writTag(Fh,'
      ')
         ^^^^^^^^^^^^^^^^^^^^^^
./prarma.f:62:16: warning: Reference to the procedure 'writtag' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object types: CHARACTER(KIND=1,LEN=3_8) vs CHARACTER(KIND=1,LEN=4_8)
        IF(Lhtml)CALL writTag(Fh,'
      ')
                 ^^^^^^^^^^^^^^^^^^^^^^^
./prarma.f:26:8: previous reference to 'writtag'
         CALL writTag(Fh,'
      ')
         ^^^^^^^^^^^^^^^^^^^^^^
flang-new-17   -c -o testodf.o testodf.f
./testodf.f:56:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=42_8)
          CALL mkPOneLine(Mt1,'@',
          ^
./testodf.f:55:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:70:27: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=93_8)
          IF(Prttab(LAUFNT))CALL mkPOneLine(Mt1,'@',
                            ^
./testodf.f:55:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:81:13: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=18_8)
       &      CALL mkPOneLine(Mt1,'@','Add constant term.')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:55:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:95:9: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=39_8)
          CALL mkPOneLine(Mt1,'@',
          ^
./testodf.f:55:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:109:27: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=87_8)
          IF(Prttab(LAUFNT))CALL mkPOneLine(Mt1,'@',
                            ^
./testodf.f:55:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:118:13: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=24_8)
       &      CALL mkPOneLine(Mt1,'@','Add seasonal regressors.')
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:55:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:125:12: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
             CALL adrgef(DNOTST,effttl(1:nchr),'Seasonal',PRGTSE,F,T)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:82:10: previous reference to 'adrgef'
           CALL adrgef(DNOTST,'Constant','Constant',PRGTCN,F,F)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:140:12: warning: Reference to the procedure 'adrgef' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: constant-length vs non-constant-length character dummy arguments
             CALL adrgef(DNOTST,effttl(1:nchr),'Seasonal',PRGTSE,F,T)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:82:10: previous reference to 'adrgef'
           CALL adrgef(DNOTST,'Constant','Constant',PRGTCN,F,F)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./testodf.f:259:29: warning: Reference to the procedure 'mkponeline' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object types: CHARACTER(KIND=1,LEN=6_8) vs CHARACTER(KIND=1,LEN=38_8)
            IF(Prttab(LAUFNT))CALL mkPOneLine(Mt1,'@',
                              ^
./testodf.f:55:9: previous reference to 'mkponeline'
          CALL mkPOneLine(Mt1,'@',' ')
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
clang-17  -o x13ashtml aaamain.o abend.o acf.o acfar.o acfdgn.o acfhdr.o addadj.o addate.o addeas.o addfix.o addlom.o addmat.o addmul.o addotl.o addsef.o addsub.o addtd.o addusr.o adestr.o adjreg.o adjsrs.o adlabr.o adotss.o adpdrg.o adrgef.o adrgim.o adsncs.o adthnk.o aggmea.o agr.o agr1.o agr2.o agr3.o agr3s.o agrxpt.o altundovrtst.o amdest.o amdfct.o amdid.o amdid2.o amdprt.o amidot.o analts.o ansub1.o ansub10.o ansub11.o ansub2.o ansub3.o ansub4.o ansub5.o ansub7.o ansub8.o ansub9.o antilg.o apply.o ar30rg.o arfit.o arflt.o arima.o armacr.o armafl.o armats.o arspc.o autoer.o automd.o automx.o avedur.o aver.o averag.o bakusr.o bench.o bestmd.o bkdfmd.o bldcov.o blddif.o bstget.o bstmdl.o btrit.o calcqs.o calcqs2.o calcsc.o ceilng.o change.o chisq.o chitst.o chkadj.o chkchi.o chkcvr.o chkeas.o chkmu.o chkorv.o chkrt1.o chkrt2.o chkrts.o chksmd.o chktrn.o chkuhg.o chkurt.o chkzro.o chrt.o chsppf.o chusrg.o clrotl.o clsgrp.o cmpchi.o cmpstr.o cncrnt.o cnvfil.o cnvfmt.o cnvmdl.o coladd.o combft.o compb.o compcrodiag.o compdiag.o complagdiag.o compmse.o compmsealt.o component.o comprevs.o constant.o copy.o copycl.o copylg.o cormtx.o cornom.o corplt.o covar.o cpyint.o cpymat.o crosco.o ctod.o ctodat.o ctoi.o cumnor.o cvcmma.o cvdttm.o cvrerr.o daxpy.o dcopy.o ddot.o decibl.o delstr.o deltst.o desreg.o devlpl.o dfdate.o dgefa.o dgesl.o difflt.o dinvnr.o divgud.o divsub.o dlrgef.o dlrgrw.o dlusrg.o dot.o dpeq.o dpmpar.o dppdi.o dppfa.o dppsl.o dsarma.o dscal.o dsolve.o dtoc.o easaic.o easter.o editor.o eltfcn.o eltlen.o emcomp.o ends.o endsf.o enorm.o entsch.o errhdr.o estrmu.o euclid.o exctma.o extend.o extsgnl.o f3cal.o f3gen.o fclose.o fcnar.o fcstxy.o fdjac2.o fgen.o fis.o fopen.o forcst.o fouger.o fstop.o ftest.o fvalue.o fxshfr.o gauss.o gendff.o genfoot.o genfor.o genindex.o genqs.o genrtt.o genskip.o genssm.o getadj.o getchk.o getchr.o getcmp.o getdat.o getdbl.o getdes.o getdiag.o getfcn.o getfrc.o getgr.o getid.o getidm.o getint.o getivc.o getmdl.o getmtd.o getopr.o getprt.o getreg.o getrev.o getrevdec.o getsav.o getsma.o getsmat.o getsrs.o getssp.o getstr.o getsvec.o getsvl.o gettpltz.o gettr.o gettrc.o getttl.o getx11.o getxop.o getxtd.o glbshk.o gnfcrv.o grzlst.o grzmth.o grzmyr.o gtarg.o gtarma.o gtauto.o gtautx.o gtdcnm.o gtdcvc.o gtdpvc.o gtdtvc.o gtedit.o gtestm.o gtfcst.o gtfldt.o gtfrcm.o gtfree.o gtinpt.o gtinvl.o gtmdfl.o gtmtdt.o gtmtfl.o gtnmvc.o gtotlr.o gtpdrg.o gtrgdt.o gtrgpt.o gtrgvl.o gtrvst.o gtseat.o gtspec.o gttrmo.o gtwacf.o gtx11d.o gtx12s.o gtxreg.o hender.o hinge.o hist.o histx.o hndend.o hndtrn.o holday.o holidy.o hrest.o htmlfortable.o htmlout.o htmlutil.o idamax.o iddiff.o idmdl.o idotlr.o idpeak.o inbtwn.o indx.o initdg.o initst.o inpter.o insdbl.o insint.o inslg.o insopr.o insort.o insptr.o insstr.o intfmt.o intgpg.o intinp.o intlst.o intrpp.o intsrt.o invfcn.o invmat.o ipmpar.o iscrfn.o isdate.o isfals.o isfixd.o ispeak.o ispos.o issame.o istrue.o itoc.o itrerr.o kfcn.o kwtest.o lassol.o lendp.o lex.o lgnrmc.o lkshnk.o lmdif.o lmpar.o loadxr.o locshk.o logar.o logdet.o lomaic.o lstpth.o makadj.o makotl.o makttl.o map.o matrix.o maxidx.o maxlag.o maxvec.o mdlchk.o mdlfix.o mdlinp.o mdlint.o mdlmch.o mdlset.o mdssln.o meancra.o medabs.o mflag.o minim2.o mkback.o mkealb.o mkfreq.o mklnlb.o mkmdsn.o mkmdsx.o mkmetahtmlfile.o mkoprt.o mkotky.o mkpeak.o mkshdr.o mkspky.o mksplb.o mkssky.o mkstlb.o mkspst.o mktdlb.o mlist.o mltpos.o month.o mstest.o mulmat.o mulqmat.o mulref.o mulsca.o mult.o mult0.o mult1.o mult2.o mxpeak.o nblank.o newest.o nextk.o nmlmdl.o nofcst.o nrmtst.o numaff.o numfmt.o olsreg.o opnfil.o otsort.o outchr.o pacf.o pass0.o pass2.o pctrit.o phasegain.o polyml.o polynom.o ppnd.o pracf2.o prafce.o pragr2.o prfcrv.o pritd.o prlkhd.o procflts.o prothd.o prprad.o prrvob.o prshd2.o prtacf.o prtadj.o prtagr.o prtamd.o prtchi.o prtcol.o prtd8b.o prtd9a.o prtdtb.o prtdwr.o prterr.o prterx.o prtf2.o prtf2w.o prtfct.o prtft.o prtitr.o prtlog.o prtmdl.o prtmsp.o prtmsr.o prtmtx.o prtnfn.o prtopt.o prtref.o prtrev.o prtrts.o prtrv2.o prtshd.o prttbl.o prttbl1.o prttd.o prttrn.o prtxrg.o punch.o putbak.o putrev.o putstr.o qcmmnt.o qcontr.o qdoble.o qintgr.o qmap.o qmap2.o qname.o qquote.o qrfac.o qrsolv.o qsdiff.o qtoken.o quad.o quadit.o quadsd.o ratneg.o ratpos.o rdotlr.o rdotls.o rdregm.o realit.o regfix.o reglbl.o regvar.o regx11.o replac.o replyf.o resid.o resid2.o restor.o revchk.o revdrv.o revhdr.o revrse.o rgarma.o rgtdhl.o rho2.o rmatot.o rmfix.o rmlnvr.o rmlpyr.o rmotrv.o rmotss.o rmpadj.o rmtadj.o rndsa.o rngbuf.o roots.o round.o rplus.o rpoly.o rv2ss.o rvfixd.o rvrghd.o sautco.o savacf.o savchi.o savd8b.o savitr.o savmdc.o savmdl.o savmtx.o savotl.o savpk.o savspp.o savstp.o savtbl.o savwkf.o sceast.o scrmlt.o sdev.o sdxtrm.o seatad.o seatdg.o seatfc.o seatpr.o serates.o setadj.o setamx.o setapt.o setchr.o setcv.o setcvl.o setdp.o setint.o setlg.o setmdl.o setmv.o setopr.o setpt.o setrvp.o setspn.o setssp.o setup.o setwrt.o setxpt.o sfmax.o sfmsr.o sftest.o shlsrt.o shrink.o si.o sicp2.o sigex.o sigsub.o simul.o skparg.o skparm.o skpfcn.o skplst.o smeadl.o smpeak.o snrasp.o spcdrv.o spcrsd.o special.o specpeak.o spectrum.o spgrh.o spgrh2.o spmpar.o ss2rv.o ssap.o ssfnot.o ssftst.o sshist.o ssmdl.o ssort.o sspdrv.o ssphdr.o ssprep.o ssrit.o ssrng.o ssx11a.o ssxmdl.o stpitr.o strinx.o strtvl.o stvaln.o subset.o sumf.o sumry.o sumsqr.o svaict.o svamcm.o svchsd.o svdttm.o svf2f3.o svflt.o svfltd.o svfnrg.o svfreq.o svolit.o svoudg.o svpeak.o svrgcm.o svrvhd.o svspan.o table.o taper.o tblhdr.o td6var.o td7var.o tdaic.o tdftest.o tdlom.o tdset.o tdxtrm.o templs.o tfmts.o tfmts3.o totals.o transc.o trbias.o trnaic.o trnfcn.o tstdrv.o tstmd1.o tstmd2.o ttest.o uconv.o upespm.o usraic.o value.o varian.o varlog.o vars.o vsfa.o vsfb.o vsfc.o vtc.o vtest.o weight.o whitsp.o writln.o wrtdat.o wrtmss.o wrtotl.o wrttb2.o wrttbl.o wtxtrm.o x11aic.o x11ari.o x11int.o x11mdl.o x11plt.o x11pt1.o x11pt2.o x11pt3.o x11pt4.o x11ref.o x12hdr.o x12run.o xchng.o xpand.o xprmx.o xrgdiv.o xrgdrv.o xrghol.o xrgtrn.o xrlkhd.o xtrm.o yprmy.o yrly.o rvarma.o rvtdrg.o prtukp.o svtukp.o savtpk.o m2q.o chqsea.o npsa.o gennpsa.o prarma.o testodf.o   -L/usr/lib/llvm-17/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm
/usr/bin/ld: aaamain.o: in function `_QQmain':
FIRModule:(.text+0x2aa): undefined reference to `fdate_'
/usr/bin/ld: FIRModule:(.text+0x1c74): undefined reference to `fdate_'
/usr/bin/ld: agr3.o: in function `agr3_':
FIRModule:(.text+0x22c): undefined reference to `fdate_'
/usr/bin/ld: agr3s.o: in function `agr3s_':
FIRModule:(.text+0x2bf): undefined reference to `fdate_'
clang-17: error: linker command failed with exit code 1 (use -v to see invocation)
make[1]: *** [makefile.gf:286: x13ashtml] Error 1
make[1]: Leaving directory '/srv/hornik/tmp/CRAN/x13binary.Rcheck/00_pkg_src/x13binary/tools/x13as_html'
make: *** [Makefile:2: all] Error 2
ERROR: compilation failed for package ‘x13binary’
* removing ‘/srv/hornik/tmp/CRAN/x13binary.Rcheck/x13binary’