Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

warnings in fftpack.F #225

Closed
edwardhartnett opened this issue Oct 5, 2020 · 0 comments · Fixed by #233
Closed

warnings in fftpack.F #225

edwardhartnett opened this issue Oct 5, 2020 · 0 comments · Fixed by #233

Comments

@edwardhartnett
Copy link
Contributor

/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:324:72:

  324 |       IF (J-4) 102,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:330:72:

  330 |       IF (NR) 101,105,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:385:72:

  385 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:462:72:

  462 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:750:72:

  750 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:819:72:

  819 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:192:72:

  192 |       CALL RFFTI1 (N,WSAVE(N+1),WSAVE(2*N+1))
      |                                                                        1
Warning: Type mismatch in argument ‘ifac’ at (1); passed REAL(8) to INTEGER(4) [-Wargument-mismatch]
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:484:43:

  466 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  484 |             CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:485:41:

  466 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  485 |             CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:486:43:

  466 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  486 |             CH(I-1,K,3) = WA2(I-2)*CR3-WA2(I-1)*CI3
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:487:41:

  466 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  487 |             CH(I,K,3) = WA2(I-2)*CI3+WA2(I-1)*CR3
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:488:43:

  466 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  488 |             CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:489:41:

  466 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  489 |             CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:395:43:

  389 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  395 |             CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:396:41:

  389 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  396 |             CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:438:43:

  424 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  438 |             CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:439:41:

  424 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  439 |             CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:440:43:

  424 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  440 |             CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:441:41:

  424 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  441 |             CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:559:43:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  559 |             CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:560:41:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  560 |             CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:561:43:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  561 |             CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:562:41:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  562 |             CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:563:43:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  563 |             CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:564:41:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  564 |             CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:565:43:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  565 |             CH(I-1,K,5) = WA4(I-2)*DR5-WA4(I-1)*DI5
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:566:41:

  531 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  566 |             CH(I,K,5) = WA4(I-2)*DI5+WA4(I-1)*DR5
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:186:72:

  186 |       CALL RFFTB1 (N,R,WSAVE,WSAVE(N+1),WSAVE(2*N+1))
      |                                                                        1
Warning: Type mismatch in argument ‘ifac’ at (1); passed REAL(8) to INTEGER(4) [-Wargument-mismatch]
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:825:43:

  823 |          DO 103 I=3,IDO,2
      |                                                                        2
  824 |             IC = IDP2-I
  825 |             CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:826:41:

  823 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  826 |             CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:827:43:

  823 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  827 |             CR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:828:41:

  823 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  828 |             CI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:829:43:

  823 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  829 |             CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:830:41:

  823 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  830 |             CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:755:43:

  753 |          DO 103 I=3,IDO,2
      |                                                                        2
  754 |             IC = IDP2-I
  755 |             TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:756:41:

  753 |          DO 103 I=3,IDO,2
      |                                                                        2
......
  756 |             TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:787:43:

  785 |          DO 102 I=3,IDO,2
      |                                                                        2
  786 |             IC = IDP2-I
  787 |             DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:788:41:

  785 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  788 |             DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:789:43:

  785 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  789 |             DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:790:41:

  785 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  790 |             DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:884:43:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
  883 |             IC = IDP2-I
  884 |             DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:885:41:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  885 |             DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:886:43:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  886 |             DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:887:41:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  887 |             DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:888:43:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  888 |             DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:889:41:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  889 |             DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:890:43:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  890 |             DR5 = WA4(I-2)*CC(I-1,K,5)+WA4(I-1)*CC(I,K,5)
      |                                           1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:891:41:

  882 |          DO 102 I=3,IDO,2
      |                                                                        2
......
  891 |             DI5 = WA4(I-2)*CC(I,K,5)-WA4(I-1)*CC(I-1,K,5)
      |                                         1
Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2)
/var/lib/jenkins/workspace/NCEPLIBS-sp/src/fftpack.F:180:72:

  180 |       CALL RFFTF1 (N,R,WSAVE,WSAVE(N+1),WSAVE(2*N+1))
      |                                                                        1
Warning: Type mismatch in argument ‘ifac’ at (1); passed REAL(8) to INTEGER(4) [-Wargument-mismatch]

@AlexanderRichert-NOAA AlexanderRichert-NOAA transferred this issue from NOAA-EMC/NCEPLIBS-sp Jan 30, 2024
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
Status: Done
Development

Successfully merging a pull request may close this issue.

1 participant