SPLIT is now intrinsic in Fortran 202X standard [1], so the build
fails. Attached is the patch we used in Fedora downstream. It renames
SPLIT to LSPLIT, but any name could be used
thanks & regards
Jaroslav
[1] https://j3-fortran.org/doc/year/20/20-007.pdf
diff --git a/wsjtx/lib/jplsubs.f b/wsjtx/lib/jplsubs.f
index 0920bc3..6a64847 100644
--- a/wsjtx/lib/jplsubs.f
+++ b/wsjtx/lib/jplsubs.f
@@ -533,7 +533,7 @@ C
C+++++++++++++++++++++++++
C
- SUBROUTINE SPLIT(TT,FR)
+ SUBROUTINE LSPLIT(TT,FR)
C
C+++++++++++++++++++++++++
C
@@ -754,11 +754,11 @@ C ********** MAIN ENTRY POINT **********
IF(ET2(1) .EQ. 0.D0) RETURN
S=ET2(1)-.5D0
- CALL SPLIT(S,PJD(1))
- CALL SPLIT(ET2(2),PJD(3))
+ CALL LSPLIT(S,PJD(1))
+ CALL LSPLIT(ET2(2),PJD(3))
PJD(1)=PJD(1)+PJD(3)+.5D0
PJD(2)=PJD(2)+PJD(4)
- CALL SPLIT(PJD(2),PJD(3))
+ CALL LSPLIT(PJD(2),PJD(3))
PJD(1)=PJD(1)+PJD(3)
C ERROR RETURN FOR EPOCH OUT OF RANGE
_______________________________________________
wsjt-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wsjt-devel
