<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

print &lt;&lt;EOF if ($ARGV[0] eq '--help');
$0: Fortran 90 ´Ê°×¥Ç¥Ð¥Ã¥°¥Ä¡¼¥ë

Fortran 90 ¤Î¥½¡¼¥¹¥³¡¼¥É (¤¿¤À¤·²¼µ­¥¹¥¿¥¤¥ë¤Ë¸Â¤ë) ¤ò¤³¤Î¥Õ¥£¥ë¥¿¤Ë
ÄÌ¤¹¤È¼Â¹ÔÊ¸¤ÎÁ°¤Ë PRINT Ê¸¤òÁÞÆþ¤·¡¢¥Õ¥¡¥¤¥ëÌ¾¡¢¹ÔÈÖ¹æ¡¢¥½¡¼¥¹¥³¡¼¥É¤Î
¹Ô¼«ÂÎ¤ò°õ»ú¤¹¤ë¡£¤³¤ì¤Ë¤è¤ê¥Ç¥Ð¥Ã¥¬¤¬¤Ê¤¤¤«¿®Íê¤Ç¤­¤Ê¤¤´Ä¶­¤Ç¤â
¡ÖÍî¤Á¤ë¾ì½ê¤ÎÃµÃÎ¡×¤¯¤é¤¤¤Ï¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ë¡£

¥¹¥¿¥¤¥ë¤Î¾ò·ï¤Ï°Ê²¼¤ÎÄÌ¤ê:
  ¡¦Éû¥×¥í¥°¥é¥à¤ÎºÇ½é¤Î¼Â¹ÔÊ¸¤ÎÁ°¤ËÊ¸ÈÖ¹æ¤Ê¤· continue Ê¸¤òÃÖ¤¯
  ¡¦Éû¥×¥í¥°¥é¥à¤ò½ª¤¨¤ë¤¿¤á¤Ë¤Ï end function/end subroutine Ê¸¤ò»ÈÍÑ
  ¡¦·ÑÂ³¹Ô¤Ï &amp; ¤Ç¤Ï¤¸¤á¤ë

vi ¥¨¥Ç¥£¥¿¤ò»ÈÍÑ¤·¤Æ¤¤¤ë¾ì¹ç¤ÏÅ¬ÍÑ¤Ë 1G!Gperl $0 \%^M ¤È¤·¡¢
²ò½ü¤Ë :g/!DBG\$/d^M ¤È¤¹¤ì¤Ð¤è¤¤¡£¤¿¤À¤·¤³¤³¤Ç ^M ¤Ï²þ¹Ô¤Ç¤¢¤ë¡£
EOF

while(&lt;&gt;) {
    chomp;
    $line = $_;
    $line =~ s/'/''/g;
    $line =~ s/^\s*//;
    $run = 1 if ($line =~ /^continue/);
    $run = 0 if ($line =~ /^contains/);
    $run = 0 if ($line =~ /^end [fsp]/);
    $tmprun = $run;
    $tmprun = 0 if ($line =~ /^&amp;/);
    $tmprun = 0 if ($line =~ /^case/);
    print "PRINT '(A)', '\&amp;$ARGV $.: $line' !DBG\n" if $tmprun;
    print "$_\n";
}
</pre></body></html>