*** fort77	Tue Dec  8 22:01:21 1998
--- fort77.rev	Tue Dec  8 22:01:21 1998
***************
*** 270,282 ****
  	if ($extract_prototypes) {
  	    $pfile = ($basefile =~ /([^\/]*\.).$/)[0] . "P";
  	    open(CFILE, "$cfile") || die ("$0: Cannot open $cfile\n");
! 	    while (($line = <CFILE>) &&
  		   ($line !~ '#ifdef P_R_O_T_O_T_Y_P_E_S\n')) {
  		print $line;
  	    }
  	    if ($_) {
  		open(PFILE, ">$pfile") || die ("$0: Cannot open $pfile\n");
! 		while (($line = <CFILE>) && ($line !~ '#endif')) {
  		    print PFILE $line;
  		}
  		close(PFILE);
--- 270,282 ----
  	if ($extract_prototypes) {
  	    $pfile = ($basefile =~ /([^\/]*\.).$/)[0] . "P";
  	    open(CFILE, "$cfile") || die ("$0: Cannot open $cfile\n");
! 	    while (defind($line = <CFILE>) &&
  		   ($line !~ '#ifdef P_R_O_T_O_T_Y_P_E_S\n')) {
  		print $line;
  	    }
  	    if ($_) {
  		open(PFILE, ">$pfile") || die ("$0: Cannot open $pfile\n");
! 		while (defind($line = <CFILE>) && ($line !~ '#endif')) {
  		    print PFILE $line;
  		}
  		close(PFILE);