Lines Matching refs:msg
76 character(len=80) :: msg local
85 msg = ""
89 msg = trim(msg)//trim(tmp)
92 msg = trim(msg)//ch10
93 write(my_unit,'(a)') msg
94 msg = ""
99 msg = trim(msg)//trim(tmp)
102 msg = trim(msg)//ch10
103 write(my_unit,'(a)') msg
104 msg = ""
109 msg = trim(msg)//trim(tmp)
112 msg = trim(msg)//ch10
113 write(my_unit,'(a)') msg
114 msg = ""
119 msg = trim(msg)//trim(tmp)
122 msg = trim(msg)//ch10
123 write(my_unit,'(a)') msg
124 msg = ""
129 msg = trim(msg)//trim(tmp)
132 msg = trim(msg)//ch10
133 write(my_unit,'(a)') msg
134 msg = ""
139 msg = trim(msg)//trim(tmp)
142 msg = trim(msg)//ch10
143 write(my_unit,'(a)') msg
144 msg = ""
149 msg = trim(msg)//trim(tmp)
152 msg = trim(msg)//ch10
153 write(my_unit,'(a)') msg
154 msg = ""
159 msg = trim(msg)//trim(tmp)
162 msg = trim(msg)//ch10
163 write(my_unit,'(a)') msg
164 msg = ""
169 msg = trim(msg)//trim(tmp)
172 msg = trim(msg)//ch10
173 write(my_unit,'(a)') msg
174 msg = ""
179 msg = trim(msg)//trim(tmp)
182 msg = trim(msg)//ch10
183 write(my_unit,'(a)') msg
184 msg = ""
189 msg = trim(msg)//trim(tmp)
192 msg = trim(msg)//ch10
193 write(my_unit,'(a)') msg
194 msg = ""
199 msg = trim(msg)//trim(tmp)
202 msg = trim(msg)//ch10
203 write(my_unit,'(a)') msg
204 msg = ""
209 msg = trim(msg)//trim(tmp)
212 msg = trim(msg)//ch10
213 write(my_unit,'(a)') msg
214 msg = ""
219 msg = trim(msg)//trim(tmp)
222 msg = trim(msg)//ch10
223 write(my_unit,'(a)') msg
224 msg = ""
229 msg = trim(msg)//trim(tmp)
232 msg = trim(msg)//ch10
233 write(my_unit,'(a)') msg
234 msg = ""
239 msg = trim(msg)//trim(tmp)
242 msg = trim(msg)//ch10
243 write(my_unit,'(a)') msg
244 msg = ""
249 msg = trim(msg)//trim(tmp)
252 msg = trim(msg)//ch10
253 write(my_unit,'(a)') msg
254 msg = ""
259 msg = trim(msg)//trim(tmp)
262 msg = trim(msg)//ch10
263 write(my_unit,'(a)') msg
264 msg = ""
269 msg = trim(msg)//trim(tmp)
272 msg = trim(msg)//ch10
273 write(my_unit,'(a)') msg
274 msg = ""
279 msg = trim(msg)//trim(tmp)
282 msg = trim(msg)//ch10
283 write(my_unit,'(a)') msg
284 msg = ""
289 msg = trim(msg)//trim(tmp)
292 msg = trim(msg)//ch10
293 write(my_unit,'(a)') msg
294 msg = ""
299 msg = trim(msg)//trim(tmp)
302 msg = trim(msg)//ch10
303 write(my_unit,'(a)') msg
304 msg = ""
309 msg = trim(msg)//trim(tmp)
312 msg = trim(msg)//ch10
313 write(my_unit,'(a)') msg
314 msg = ""
319 msg = trim(msg)//trim(tmp)
322 msg = trim(msg)//ch10
323 write(my_unit,'(a)') msg
324 msg = ""
329 msg = trim(msg)//trim(tmp)
332 msg = trim(msg)//ch10
333 write(my_unit,'(a)') msg
334 msg = ""
339 msg = trim(msg)//trim(tmp)
342 msg = trim(msg)//ch10
343 write(my_unit,'(a)') msg
344 msg = ""
349 msg = trim(msg)//trim(tmp)
352 msg = trim(msg)//ch10
353 write(my_unit,'(a)') msg
354 msg = ""
359 msg = trim(msg)//trim(tmp)
362 msg = trim(msg)//ch10
363 write(my_unit,'(a)') msg
364 msg = ""
369 msg = trim(msg)//trim(tmp)
372 msg = trim(msg)//ch10
373 write(my_unit,'(a)') msg
374 msg = ""
379 msg = trim(msg)//trim(tmp)
382 msg = trim(msg)//ch10
383 write(my_unit,'(a)') msg
384 msg = ""
389 msg = trim(msg)//trim(tmp)
392 msg = trim(msg)//ch10
393 write(my_unit,'(a)') msg
394 msg = ""
399 msg = trim(msg)//trim(tmp)
402 msg = trim(msg)//ch10
403 write(my_unit,'(a)') msg
404 msg = ""
409 msg = trim(msg)//trim(tmp)
412 msg = trim(msg)//ch10
413 write(my_unit,'(a)') msg
414 msg = ""
419 msg = trim(msg)//trim(tmp)
422 msg = trim(msg)//ch10
423 write(my_unit,'(a)') msg
424 msg = ""
429 msg = trim(msg)//trim(tmp)
432 msg = trim(msg)//ch10
433 write(my_unit,'(a)') msg
434 msg = ""
439 msg = trim(msg)//trim(tmp)
442 msg = trim(msg)//ch10
443 write(my_unit,'(a)') msg
444 msg = ""
449 msg = trim(msg)//trim(tmp)
452 msg = trim(msg)//ch10
453 write(my_unit,'(a)') msg
454 msg = ""
459 msg = trim(msg)//trim(tmp)
462 msg = trim(msg)//ch10
463 write(my_unit,'(a)') msg
464 msg = ""
469 msg = trim(msg)//trim(tmp)
472 msg = trim(msg)//ch10
473 write(my_unit,'(a)') msg
474 msg = ""
479 msg = trim(msg)//trim(tmp)
482 msg = trim(msg)//ch10
483 write(my_unit,'(a)') msg
484 msg = ""
489 msg = trim(msg)//trim(tmp)
492 msg = trim(msg)//ch10
493 write(my_unit,'(a)') msg
494 msg = ""
499 msg = trim(msg)//trim(tmp)
502 msg = trim(msg)//ch10
503 write(my_unit,'(a)') msg
504 msg = ""
509 msg = trim(msg)//trim(tmp)
512 msg = trim(msg)//ch10
513 write(my_unit,'(a)') msg
514 msg = ""
519 msg = trim(msg)//trim(tmp)
522 msg = trim(msg)//ch10
523 write(my_unit,'(a)') msg
524 msg = ""
529 msg = trim(msg)//trim(tmp)
532 msg = trim(msg)//ch10
533 write(my_unit,'(a)') msg
534 msg = ""
539 msg = trim(msg)//trim(tmp)
542 msg = trim(msg)//ch10
543 write(my_unit,'(a)') msg
544 msg = ""
549 msg = trim(msg)//trim(tmp)
552 msg = trim(msg)//ch10
553 write(my_unit,'(a)') msg
554 msg = ""
559 msg = trim(msg)//trim(tmp)
562 msg = trim(msg)//ch10
563 write(my_unit,'(a)') msg
564 msg = ""
569 msg = trim(msg)//trim(tmp)
572 msg = trim(msg)//ch10
573 write(my_unit,'(a)') msg
574 msg = ""
579 msg = trim(msg)//trim(tmp)
582 msg = trim(msg)//ch10
583 write(my_unit,'(a)') msg
584 msg = ""
589 msg = trim(msg)//trim(tmp)
592 msg = trim(msg)//ch10
593 write(my_unit,'(a)') msg
594 msg = ""
599 msg = trim(msg)//trim(tmp)
602 msg = trim(msg)//ch10
603 write(my_unit,'(a)') msg
604 msg = ""
609 msg = trim(msg)//trim(tmp)
612 msg = trim(msg)//ch10
613 write(my_unit,'(a)') msg
614 msg = ""
619 msg = trim(msg)//trim(tmp)
622 msg = trim(msg)//ch10
623 write(my_unit,'(a)') msg
624 msg = ""
629 msg = trim(msg)//trim(tmp)
632 msg = trim(msg)//ch10
633 write(my_unit,'(a)') msg
634 msg = ""
639 msg = trim(msg)//trim(tmp)
642 msg = trim(msg)//ch10
643 write(my_unit,'(a)') msg
644 msg = ""
649 msg = trim(msg)//trim(tmp)
652 msg = trim(msg)//ch10
653 write(my_unit,'(a)') msg
654 msg = ""
659 msg = trim(msg)//trim(tmp)
662 msg = trim(msg)//ch10
663 write(my_unit,'(a)') msg
664 msg = ""
669 msg = trim(msg)//trim(tmp)
672 msg = trim(msg)//ch10
673 write(my_unit,'(a)') msg
674 msg = ""
679 msg = trim(msg)//trim(tmp)
682 msg = trim(msg)//ch10
683 write(my_unit,'(a)') msg
684 msg = ""
689 msg = trim(msg)//trim(tmp)
692 msg = trim(msg)//ch10
693 write(my_unit,'(a)') msg
694 msg = ""
699 msg = trim(msg)//trim(tmp)
702 msg = trim(msg)//ch10
703 write(my_unit,'(a)') msg
704 msg = ""
709 msg = trim(msg)//trim(tmp)
712 msg = trim(msg)//ch10
713 write(my_unit,'(a)') msg
714 msg = ""
719 msg = trim(msg)//trim(tmp)
722 msg = trim(msg)//ch10
723 write(my_unit,'(a)') msg
724 msg = ""
729 msg = trim(msg)//trim(tmp)
732 msg = trim(msg)//ch10
733 write(my_unit,'(a)') msg
734 msg = ""
739 msg = trim(msg)//trim(tmp)
742 msg = trim(msg)//ch10
743 write(my_unit,'(a)') msg
744 msg = ""
749 msg = trim(msg)//trim(tmp)
752 msg = trim(msg)//ch10
753 write(my_unit,'(a)') msg
754 msg = ""
759 msg = trim(msg)//trim(tmp)
762 msg = trim(msg)//ch10
763 write(my_unit,'(a)') msg
764 msg = ""
769 msg = trim(msg)//trim(tmp)
772 msg = trim(msg)//ch10
773 write(my_unit,'(a)') msg
774 msg = ""
779 msg = trim(msg)//trim(tmp)
782 msg = trim(msg)//ch10
783 write(my_unit,'(a)') msg
784 msg = ""
789 msg = trim(msg)//trim(tmp)
792 msg = trim(msg)//ch10
793 write(my_unit,'(a)') msg
794 msg = ""
799 msg = trim(msg)//trim(tmp)
802 msg = trim(msg)//ch10
803 write(my_unit,'(a)') msg
804 msg = ""
809 msg = trim(msg)//trim(tmp)
812 msg = trim(msg)//ch10
813 write(my_unit,'(a)') msg
814 msg = ""
819 msg = trim(msg)//trim(tmp)
822 msg = trim(msg)//ch10
823 write(my_unit,'(a)') msg
824 msg = ""
829 msg = trim(msg)//trim(tmp)
832 msg = trim(msg)//ch10
833 write(my_unit,'(a)') msg
834 msg = ""
839 msg = trim(msg)//trim(tmp)
842 msg = trim(msg)//ch10
843 write(my_unit,'(a)') msg
844 msg = ""
849 msg = trim(msg)//trim(tmp)
852 msg = trim(msg)//ch10
853 write(my_unit,'(a)') msg
854 msg = ""
859 msg = trim(msg)//trim(tmp)
862 msg = trim(msg)//ch10
863 write(my_unit,'(a)') msg
864 msg = ""
869 msg = trim(msg)//trim(tmp)
872 msg = trim(msg)//ch10
873 write(my_unit,'(a)') msg
874 msg = ""
879 msg = trim(msg)//trim(tmp)
882 msg = trim(msg)//ch10
883 write(my_unit,'(a)') msg
884 msg = ""
889 msg = trim(msg)//trim(tmp)
892 msg = trim(msg)//ch10
893 write(my_unit,'(a)') msg
894 msg = ""
899 msg = trim(msg)//trim(tmp)
902 msg = trim(msg)//ch10
903 write(my_unit,'(a)') msg
904 msg = ""
909 msg = trim(msg)//trim(tmp)
912 msg = trim(msg)//ch10
913 write(my_unit,'(a)') msg
914 msg = ""
919 msg = trim(msg)//trim(tmp)
922 msg = trim(msg)//ch10
923 write(my_unit,'(a)') msg
924 msg = ""
929 msg = trim(msg)//trim(tmp)
932 msg = trim(msg)//ch10
933 write(my_unit,'(a)') msg
934 msg = ""
939 msg = trim(msg)//trim(tmp)
942 msg = trim(msg)//ch10
943 write(my_unit,'(a)') msg
944 msg = ""
949 msg = trim(msg)//trim(tmp)
952 msg = trim(msg)//ch10
953 write(my_unit,'(a)') msg
954 msg = ""
959 msg = trim(msg)//trim(tmp)
962 msg = trim(msg)//ch10
963 write(my_unit,'(a)') msg
964 msg = ""
969 msg = trim(msg)//trim(tmp)
972 msg = trim(msg)//ch10
973 write(my_unit,'(a)') msg
974 msg = ""
979 msg = trim(msg)//trim(tmp)
982 msg = trim(msg)//ch10
983 write(my_unit,'(a)') msg
984 msg = ""
989 msg = trim(msg)//trim(tmp)
992 msg = trim(msg)//ch10
993 write(my_unit,'(a)') msg
994 msg = ""
999 msg = trim(msg)//trim(tmp)
1002 msg = trim(msg)//ch10
1003 write(my_unit,'(a)') msg
1004 msg = ""
1009 msg = trim(msg)//trim(tmp)
1012 msg = trim(msg)//ch10
1013 write(my_unit,'(a)') msg
1014 msg = ""
1019 msg = trim(msg)//trim(tmp)
1022 msg = trim(msg)//ch10
1023 write(my_unit,'(a)') msg
1024 msg = ""
1029 msg = trim(msg)//trim(tmp)
1032 msg = trim(msg)//ch10
1033 write(my_unit,'(a)') msg
1034 msg = ""
1039 msg = trim(msg)//trim(tmp)
1042 msg = trim(msg)//ch10
1043 write(my_unit,'(a)') msg
1044 msg = ""
1049 msg = trim(msg)//trim(tmp)
1052 msg = trim(msg)//ch10
1053 write(my_unit,'(a)') msg
1054 msg = ""
1059 msg = trim(msg)//trim(tmp)
1062 msg = trim(msg)//ch10
1063 write(my_unit,'(a)') msg
1064 msg = ""
1069 msg = trim(msg)//trim(tmp)
1072 msg = trim(msg)//ch10
1073 write(my_unit,'(a)') msg
1074 msg = ""
1079 msg = trim(msg)//trim(tmp)
1082 msg = trim(msg)//ch10
1083 write(my_unit,'(a)') msg
1084 msg = ""
1089 msg = trim(msg)//trim(tmp)
1092 msg = trim(msg)//ch10
1093 write(my_unit,'(a)') msg
1094 msg = ""
1099 msg = trim(msg)//trim(tmp)
1102 msg = trim(msg)//ch10
1103 write(my_unit,'(a)') msg
1104 msg = ""
1109 msg = trim(msg)//trim(tmp)
1112 msg = trim(msg)//ch10
1113 write(my_unit,'(a)') msg
1114 msg = ""
1119 msg = trim(msg)//trim(tmp)
1122 msg = trim(msg)//ch10
1123 write(my_unit,'(a)') msg
1124 msg = ""
1129 msg = trim(msg)//trim(tmp)
1132 msg = trim(msg)//ch10
1133 write(my_unit,'(a)') msg
1134 msg = ""
1139 msg = trim(msg)//trim(tmp)
1142 msg = trim(msg)//ch10
1143 write(my_unit,'(a)') msg
1144 msg = ""
1149 msg = trim(msg)//trim(tmp)
1152 msg = trim(msg)//ch10
1153 write(my_unit,'(a)') msg
1154 msg = ""
1159 msg = trim(msg)//trim(tmp)
1162 msg = trim(msg)//ch10
1163 write(my_unit,'(a)') msg
1164 msg = ""
1169 msg = trim(msg)//trim(tmp)
1172 msg = trim(msg)//ch10
1173 write(my_unit,'(a)') msg
1174 msg = ""
1179 msg = trim(msg)//trim(tmp)
1182 msg = trim(msg)//ch10
1183 write(my_unit,'(a)') msg
1184 msg = ""
1189 msg = trim(msg)//trim(tmp)
1192 msg = trim(msg)//ch10
1193 write(my_unit,'(a)') msg
1194 msg = ""
1199 msg = trim(msg)//trim(tmp)
1202 msg = trim(msg)//ch10
1203 write(my_unit,'(a)') msg
1204 msg = ""
1209 msg = trim(msg)//trim(tmp)
1212 msg = trim(msg)//ch10
1213 write(my_unit,'(a)') msg
1214 msg = ""
1219 msg = trim(msg)//trim(tmp)
1222 msg = trim(msg)//ch10
1223 write(my_unit,'(a)') msg
1224 msg = ""
1229 msg = trim(msg)//trim(tmp)
1232 msg = trim(msg)//ch10
1233 write(my_unit,'(a)') msg
1234 msg = ""
1239 msg = trim(msg)//trim(tmp)
1242 msg = trim(msg)//ch10
1243 write(my_unit,'(a)') msg
1244 msg = ""
1249 msg = trim(msg)//trim(tmp)
1252 msg = trim(msg)//ch10
1253 write(my_unit,'(a)') msg
1254 msg = ""
1259 msg = trim(msg)//trim(tmp)
1262 msg = trim(msg)//ch10
1263 write(my_unit,'(a)') msg
1264 msg = ""
1269 msg = trim(msg)//trim(tmp)
1272 msg = trim(msg)//ch10
1273 write(my_unit,'(a)') msg
1274 msg = ""
1279 msg = trim(msg)//trim(tmp)
1282 msg = trim(msg)//ch10
1283 write(my_unit,'(a)') msg
1284 msg = ""
1289 msg = trim(msg)//trim(tmp)
1292 msg = trim(msg)//ch10
1293 write(my_unit,'(a)') msg
1294 msg = ""
1299 msg = trim(msg)//trim(tmp)
1302 msg = trim(msg)//ch10
1303 write(my_unit,'(a)') msg
1304 msg = ""
1309 msg = trim(msg)//trim(tmp)
1312 msg = trim(msg)//ch10
1313 write(my_unit,'(a)') msg
1314 msg = ""
1319 msg = trim(msg)//trim(tmp)
1322 msg = trim(msg)//ch10
1323 write(my_unit,'(a)') msg
1324 msg = ""
1329 msg = trim(msg)//trim(tmp)
1332 msg = trim(msg)//ch10
1333 write(my_unit,'(a)') msg
1334 msg = ""
1339 msg = trim(msg)//trim(tmp)
1342 msg = trim(msg)//ch10
1343 write(my_unit,'(a)') msg
1344 msg = ""
1349 msg = trim(msg)//trim(tmp)
1352 msg = trim(msg)//ch10
1353 write(my_unit,'(a)') msg
1354 msg = ""
1359 msg = trim(msg)//trim(tmp)
1362 msg = trim(msg)//ch10
1363 write(my_unit,'(a)') msg
1364 msg = ""
1369 msg = trim(msg)//trim(tmp)
1372 msg = trim(msg)//ch10
1373 write(my_unit,'(a)') msg
1374 msg = ""
1379 msg = trim(msg)//trim(tmp)
1382 msg = trim(msg)//ch10
1383 write(my_unit,'(a)') msg
1384 msg = ""
1389 msg = trim(msg)//trim(tmp)
1392 msg = trim(msg)//ch10
1393 write(my_unit,'(a)') msg
1394 msg = ""
1399 msg = trim(msg)//trim(tmp)
1402 msg = trim(msg)//ch10
1403 write(my_unit,'(a)') msg
1404 msg = ""
1409 msg = trim(msg)//trim(tmp)
1412 msg = trim(msg)//ch10
1413 write(my_unit,'(a)') msg
1414 msg = ""
1419 msg = trim(msg)//trim(tmp)
1422 msg = trim(msg)//ch10
1423 write(my_unit,'(a)') msg
1424 msg = ""
1429 msg = trim(msg)//trim(tmp)
1432 msg = trim(msg)//ch10
1433 write(my_unit,'(a)') msg
1434 msg = ""
1439 msg = trim(msg)//trim(tmp)
1442 msg = trim(msg)//ch10
1443 write(my_unit,'(a)') msg
1444 msg = ""
1449 msg = trim(msg)//trim(tmp)
1452 msg = trim(msg)//ch10
1453 write(my_unit,'(a)') msg
1454 msg = ""
1459 msg = trim(msg)//trim(tmp)
1462 msg = trim(msg)//ch10
1463 write(my_unit,'(a)') msg
1464 msg = ""
1469 msg = trim(msg)//trim(tmp)
1472 msg = trim(msg)//ch10
1473 write(my_unit,'(a)') msg
1474 msg = ""
1479 msg = trim(msg)//trim(tmp)
1482 msg = trim(msg)//ch10
1483 write(my_unit,'(a)') msg
1484 msg = ""
1489 msg = trim(msg)//trim(tmp)
1492 msg = trim(msg)//ch10
1493 write(my_unit,'(a)') msg
1494 msg = ""
1499 msg = trim(msg)//trim(tmp)
1502 msg = trim(msg)//ch10
1503 write(my_unit,'(a)') msg
1504 msg = ""
1509 msg = trim(msg)//trim(tmp)
1512 msg = trim(msg)//ch10
1513 write(my_unit,'(a)') msg
1514 msg = ""
1519 msg = trim(msg)//trim(tmp)
1522 msg = trim(msg)//ch10
1523 write(my_unit,'(a)') msg
1524 msg = ""
1529 msg = trim(msg)//trim(tmp)
1532 msg = trim(msg)//ch10
1533 write(my_unit,'(a)') msg
1534 msg = ""
1539 msg = trim(msg)//trim(tmp)
1542 msg = trim(msg)//ch10
1543 write(my_unit,'(a)') msg
1544 msg = ""
1549 msg = trim(msg)//trim(tmp)
1552 msg = trim(msg)//ch10
1553 write(my_unit,'(a)') msg
1554 msg = ""
1559 msg = trim(msg)//trim(tmp)
1562 msg = trim(msg)//ch10
1563 write(my_unit,'(a)') msg
1564 msg = ""
1569 msg = trim(msg)//trim(tmp)
1572 msg = trim(msg)//ch10
1573 write(my_unit,'(a)') msg
1574 msg = ""
1579 msg = trim(msg)//trim(tmp)
1582 msg = trim(msg)//ch10
1583 write(my_unit,'(a)') msg
1584 msg = ""
1589 msg = trim(msg)//trim(tmp)
1592 msg = trim(msg)//ch10
1593 write(my_unit,'(a)') msg
1594 msg = ""
1599 msg = trim(msg)//trim(tmp)
1602 msg = trim(msg)//ch10
1603 write(my_unit,'(a)') msg
1604 msg = ""
1609 msg = trim(msg)//trim(tmp)
1612 msg = trim(msg)//ch10
1613 write(my_unit,'(a)') msg
1614 msg = ""
1619 msg = trim(msg)//trim(tmp)
1622 msg = trim(msg)//ch10
1623 write(my_unit,'(a)') msg
1624 msg = ""
1629 msg = trim(msg)//trim(tmp)
1632 msg = trim(msg)//ch10
1633 write(my_unit,'(a)') msg
1634 msg = ""
1639 msg = trim(msg)//trim(tmp)
1642 msg = trim(msg)//ch10
1643 write(my_unit,'(a)') msg
1644 msg = ""
1649 msg = trim(msg)//trim(tmp)
1652 msg = trim(msg)//ch10
1653 write(my_unit,'(a)') msg
1654 msg = ""
1659 msg = trim(msg)//trim(tmp)
1662 msg = trim(msg)//ch10
1663 write(my_unit,'(a)') msg
1664 msg = ""
1669 msg = trim(msg)//trim(tmp)
1672 msg = trim(msg)//ch10
1673 write(my_unit,'(a)') msg
1674 msg = ""
1678 if ( mod(msg_index,3) /= 0 ) write(my_unit,'(a)') msg