<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>