Index: head/science/oases/Makefile =================================================================== --- head/science/oases/Makefile (revision 182580) +++ head/science/oases/Makefile (revision 182581) @@ -1,57 +1,63 @@ # ex:ts=8 # Ports collection makefile for: oaeses # Date created: May 27, 2002 # Whom: Heiner Strauss # # $FreeBSD$ # PORTNAME= oases PORTVERSION= 2.2 -PORTREVISION= 1 +PORTREVISION= 2 CATEGORIES= science MASTER_SITES= ftp://keel.mit.edu/pub/Oases/ DISTNAME= oases_Mar-28-2002 MAINTAINER= ports@FreeBSD.org COMMENT= Ocean Acoustics and Seismic Exploration Synthesis WRKSRC= ${WRKDIR}/Oases_export USE_XLIB= yes -MAKE_ENV= OASES_ROOT="${WRKSRC}" +MAKE_ENV+= OASES_ROOT="${WRKSRC}" + +WANT_FORTRAN= yes #dummy but future use +BUILD_DEPENDS+= gfortran42:${PORTSDIR}/lang/gcc42 +FC= gfortran42 +F77= gfortran42 +MAKE_ENV+= FC="${FC}" F77="${F77}" FFLAGS="${FFLAGS}" SCRIPT= avbeam bistat cplot mplot mtvplot multmtv oasn oasp oasr \ oass oassp oast plp2mtv EXAMPLE= mfp mfp_geo noise pulse rcoef rd_test rdloss rdpulse \ scat scatp tloss volume post-patch: @${REINPLACE_CMD} -e 's|%%FC%%|${FC}|g ; \ s|%%CC%%|${CC}|g ; \ s|%%FFLAGS%%|${FFLAGS}|g ; \ s|%%CFLAGS%%|${CFLAGS}|g ; \ s|%%LDFLAGS%%|${LDFLAGS}|g ; \ s|%%X11BASE%%|${X11BASE}|g' ${WRKSRC}/Makefile do-install: ${INSTALL_PROGRAM} ${WRKSRC}/bin/FreeBSD-FreeBSD/* ${PREFIX}/bin .for script in ${SCRIPT} ${INSTALL_SCRIPT} ${WRKSRC}/bin/${script} ${PREFIX}/bin .endfor ${INSTALL_DATA} ${WRKSRC}/lib/FreeBSD-FreeBSD/*.a ${PREFIX}/lib .if !defined(NOPORTDOCS) @${MKDIR} ${DOCSDIR} ${INSTALL_DATA} ${WRKSRC}/README ${DOCSDIR} ${TAR} -C ${WRKSRC}/doc -cf - . | \ ${TAR} -C ${DOCSDIR} --unlink -xf - @${CHOWN} -R ${SHAREOWN}:${SHAREGRP} ${DOCSDIR} @${MKDIR} ${EXAMPLESDIR} .for dir in ${EXAMPLE} ${TAR} -C ${WRKSRC} -cf - ${dir} | \ ${TAR} -C ${EXAMPLESDIR} --unlink -xf - .endfor @${CHOWN} -R ${SHAREOWN}:${SHAREGRP} ${EXAMPLESDIR} .endif .include Property changes on: head/science/oases/Makefile ___________________________________________________________________ Modified: cvs2svn:cvs-rev ## -1 +1 ## -1.7 \ No newline at end of property +1.8 \ No newline at end of property Index: head/science/oases/files/patch-comnla.f =================================================================== --- head/science/oases/files/patch-comnla.f (nonexistent) +++ head/science/oases/files/patch-comnla.f (revision 182581) @@ -0,0 +1,23 @@ +INDEX are used in some different place +--- src/comnla.f~ Fri Aug 24 23:42:28 2001 ++++ src/comnla.f Wed Jan 17 13:49:29 2007 +@@ -60,7 +60,7 @@ + C + C REAL INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1) + INTEGER INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1) +- COMMON /INDEX/ INDA,INDR,INDS,INDB ++ COMMON /INDEX_/ INDA,INDR,INDS,INDB + C + C SOURCE AND RECEIVER PARAMETERS + C +--- pulsplot/comnla.f~ Sat Feb 12 00:59:20 2000 ++++ pulsplot/comnla.f Wed Jan 17 13:50:41 2007 +@@ -37,7 +37,7 @@ + C + C REAL INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1) + INTEGER INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1) +- COMMON /INDEX/ INDA,INDR,INDS,INDB ++ COMMON /INDEX_/ INDA,INDR,INDS,INDB + C + C SOURCE PARAMETERS + C Property changes on: head/science/oases/files/patch-comnla.f ___________________________________________________________________ Added: cvs2svn:cvs-rev ## -0,0 +1 ## +1.1 \ No newline at end of property Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Index: head/science/oases/files/patch-mindis.f =================================================================== --- head/science/oases/files/patch-mindis.f (nonexistent) +++ head/science/oases/files/patch-mindis.f (revision 182581) @@ -0,0 +1,332 @@ +Using illigal chars + +--- mindis/mindis.f~ Fri Feb 11 06:06:05 2000 ++++ mindis/mindis.f Wed Jan 17 13:57:49 2007 +@@ -1877,7 +1877,7 @@ + + RETURN + END +- ++ + FUNCTION ROUND( X, IDIG ) + + C IDIG: ROUND X TO IDIG DIGITS +@@ -1897,7 +1897,7 @@ + + RETURN + END +- ++ + FUNCTION RNDDN( X, IDIG ) + + C IDIG: ROUND DOWN X TO IDIG DIGITS +@@ -1924,7 +1924,7 @@ + + RETURN + END +- ++ + FUNCTION RNDUP( X, IDIG ) + + C IDIG: ROUND UP X TO IDIG DIGITS +@@ -1951,7 +1951,7 @@ + + RETURN + END +- ++ + SUBROUTINE T4010 + + C PUTS A VT340 TERMINAL IN 4010 EMULATION MODE +@@ -1963,7 +1963,7 @@ + + RETURN + END +- ++ + SUBROUTINE VT340 + + C RESETS THE TERMINAL +@@ -1975,7 +1975,7 @@ + + RETURN + END +- ++ + SUBROUTINE REALNO( X, I, A, B) + + C EMULATES DISSPLA REALNO FUNCTION +@@ -2002,7 +2002,7 @@ + + RETURN + END +- ++ + SUBROUTINE INTNO( INUM, A, B) + + C EMULATES DISSPLA INTNO FUNCTION +@@ -2022,7 +2022,7 @@ + + RETURN + END +- ++ + SUBROUTINE RLREAL( X, I, A, B) + + C EMULATES DISSPLA RLREAL FUNCTION +@@ -2049,7 +2049,7 @@ + + RETURN + END +- ++ + SUBROUTINE RLINT( INUM, A, B) + + C EMULATES DISSPLA INTNO FUNCTION +@@ -2069,7 +2069,7 @@ + + RETURN + END +- ++ + SUBROUTINE AREA2D( XLEN, YLEN ) + + C Routine to define plot size +@@ -2078,7 +2078,7 @@ + + RETURN + END +- ++ + SUBROUTINE COMPRS + + C COPPER PENNY FUSE +@@ -2091,7 +2091,7 @@ + + RETURN + END +- ++ + SUBROUTINE UNITS( SCALE ) + + C EMULATES DISPLA UNITS ROUTINE FOR SELECTING METRIC OR US +@@ -2103,7 +2103,7 @@ + + RETURN + END +- ++ + SUBROUTINE SETCLR( LCOLOR ) + + C EMULATES DISPLA SETCLR ROUTINE FOR SELECTING COLORS +@@ -2125,7 +2125,7 @@ + + RETURN + END +- ++ + SUBROUTINE GRACE( X ) + + C Set the grace value for plot clipping +@@ -2136,7 +2136,7 @@ + + RETURN + END +- ++ + SUBROUTINE SHDCHR( ANGRAY, NANGS, GAPRAY, NGAPS ) + + C COPPER PENNY FUSE +@@ -2145,7 +2145,7 @@ + + RETURN + END +- ++ + SUBROUTINE HWSCAL( IPSCAL ) + + C COPPER PENNY FUSE +@@ -2154,7 +2154,7 @@ + + RETURN + END +- ++ + SUBROUTINE XNONUM + + C COPPER PENNY FUSE +@@ -2163,7 +2163,7 @@ + + RETURN + END +- ++ + SUBROUTINE YNONUM + + C COPPER PENNY FUSE +@@ -2172,7 +2172,7 @@ + + RETURN + END +- ++ + SUBROUTINE ZNONUM + + C COPPER PENNY FUSE +@@ -2181,7 +2181,7 @@ + + RETURN + END +- ++ + FUNCTION XINT( INUM ) + + C COPPER PENNY FUSE +@@ -2191,7 +2191,7 @@ + + RETURN + END +- ++ + FUNCTION XREAL( ANUM, IPLACE ) + + C COPPER PENNY FUSE +@@ -2201,7 +2201,7 @@ + + RETURN + END +- ++ + FUNCTION XPOSN( XVAL, YVAL ) + + C COPPER PENNY FUSE +@@ -2211,7 +2211,7 @@ + + RETURN + END +- ++ + FUNCTION YPOSN( XVAL, YVAL ) + + C COPPER PENNY FUSE +@@ -2221,21 +2221,21 @@ + + RETURN + END +- ++ + SUBROUTINE THKRND( FACTOR ) + + C COPPER PENNY FUSE + + RETURN + END +- ++ + SUBROUTINE BSCALE( XTIMES, YTIMES ) + + C COPPER PENNY FUSE + + RETURN + END +- ++ + SUBROUTINE BLPOLY( XARAY, YARAY, NPTS, FRM ) + + C COPPER PENNY FUSE +@@ -2244,7 +2244,7 @@ + + RETURN + END +- ++ + SUBROUTINE BLREC( XORG, YORG, WIDE, HIGH, FRM ) + + C ROUTINE TO BLANK OUT A RECTANGULAR AREA +@@ -2258,14 +2258,14 @@ + + RETURN + END +- ++ + SUBROUTINE SWISSM + + C SELECTS SWISSM FONT + + RETURN + END +- ++ + SUBROUTINE ZUSE( LSTRGZ, ISTRGZ ) + + C COPPER PENNY FUSE +@@ -2273,7 +2273,7 @@ + CHARACTER*40 LSTRGZ + RETURN + END +- ++ + SUBROUTINE Z1USE( LSTRGZ, ISTRGZ ) + + C COPPER PENNY FUSE +@@ -2281,7 +2281,7 @@ + CHARACTER*40 LSTRGZ + RETURN + END +- ++ + SUBROUTINE Z2USE( LSTRGZ, ISTRGZ ) + + C COPPER PENNY FUSE +@@ -2289,7 +2289,7 @@ + CHARACTER*40 LSTRGZ + RETURN + END +- ++ + SUBROUTINE Z3USE( LSTRGZ, ISTRGZ ) + + C COPPER PENNY FUSE +@@ -2297,7 +2297,7 @@ + CHARACTER*40 LSTRGZ + RETURN + END +- ++ + SUBROUTINE Z4USE( LSTRGZ, ISTRGZ ) + + C COPPER PENNY FUSE +@@ -2305,7 +2305,7 @@ + CHARACTER*40 LSTRGZ + RETURN + END +- ++ + SUBROUTINE Z5USE( LSTRGZ, ISTRGZ ) + + C COPPER PENNY FUSE +@@ -2313,7 +2313,7 @@ + CHARACTER*40 LSTRGZ + RETURN + END +- ++ + SUBROUTINE Z6USE( LSTRGZ, ISTRGZ ) + + C COPPER PENNY FUSE +@@ -2321,7 +2321,6 @@ + CHARACTER*40 LSTRGZ + RETURN + END +- + SUBROUTINE HWROT( IPLROT ) + + C COPPER PENNY FUSE +@@ -2329,7 +2328,6 @@ + CHARACTER*40 IPLROT + RETURN + END +- + SUBROUTINE POPNAM( LSTRING, LEN ) + + C COPPER PENNY FUSE Property changes on: head/science/oases/files/patch-mindis.f ___________________________________________________________________ Added: cvs2svn:cvs-rev ## -0,0 +1 ## +1.1 \ No newline at end of property Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Index: head/science/oases/files/patch-mindis6.f =================================================================== --- head/science/oases/files/patch-mindis6.f (nonexistent) +++ head/science/oases/files/patch-mindis6.f (revision 182581) @@ -0,0 +1,11 @@ +IDATE and ITIME are intrinsic +--- mindis/mindis6.f~ Wed May 10 05:48:07 2000 ++++ mindis/mindis6.f Wed Jan 17 14:02:18 2007 +@@ -57,7 +57,6 @@ + C ***Routine to return date and time in Ascii + CHARACTER*(*) PDATE, PTIME + INTEGER II(3) +- EXTERNAL IDATE,ITIME + CALL IDATE(II) + WRITE(PDATE,100) II(2),II(1),MOD(II(3),100) + CALL ITIME(II) Property changes on: head/science/oases/files/patch-mindis6.f ___________________________________________________________________ Added: cvs2svn:cvs-rev ## -0,0 +1 ## +1.1 \ No newline at end of property Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Index: head/science/oases/files/patch-out_tl.f =================================================================== --- head/science/oases/files/patch-out_tl.f (nonexistent) +++ head/science/oases/files/patch-out_tl.f (revision 182581) @@ -0,0 +1,11 @@ +--- plot/out_tl.f~ Fri Feb 11 06:06:07 2000 ++++ plot/out_tl.f Wed Jan 17 14:00:05 2007 +@@ -16,7 +16,7 @@ + 240 FORMAT(6(1X,E12.5)) + + IF(IC.EQ.1 .AND. IFLG13 .EQ. 0) THEN +- OPEN(13,STATUS='NEW',FORM='FORMATTED') ++ OPEN(13,STATUS='NEW',FILE='OUT13',FORM='FORMATTED') + WRITE(13,150) HTXT + DELX=AX(2)-AX(1) + READ(LAB(1),140) FREQ Property changes on: head/science/oases/files/patch-out_tl.f ___________________________________________________________________ Added: cvs2svn:cvs-rev ## -0,0 +1 ## +1.1 \ No newline at end of property Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property