Skip to content

Commit

Permalink
make it more likely that 128 bit real external functions will work!
Browse files Browse the repository at this point in the history
dalekopera committed Aug 16, 2024
1 parent e8afd42 commit 4fbfd46
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/decode/sifdecode.f90
Original file line number Diff line number Diff line change
@@ -909,6 +909,9 @@ SUBROUTINE SIFDECODE_decode( iingps, outda, iinfn, outfn, outff, outfd, &
IF ( lineex( i : i + 15 ) == ' SUBROUTINE' ) THEN
firstb = 0
END IF
IF ( lineex( i : i + 24 ) == 'REAL(REAL128) FUNCTION' ) THEN
firstb = 0
END IF
END IF
IF ( firstb == 0 .AND. lineex( i : i ) == ')' ) THEN
firstb = 1

0 comments on commit 4fbfd46

Please sign in to comment.