Ignore:
Timestamp:
Feb 9, 2015, 8:13:05 AM (10 years ago)
Author:
Ehouarn Millour
Message:

Added 'implicit none' statements and proper variable definitions where they were missing.
EM

Location:
LMDZ5/trunk/libf/filtrez
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/filtrez/acc.F

    r1907 r2197  
    33!
    44        subroutine acc(vec,d,im)
    5         dimension vec(im,im),d(im)
     5        implicit none
     6        integer :: im
     7        real :: vec(im,im),d(im)
     8        integer :: i,j
     9        real ::sum
     10        real,external :: ssum
    611        do j=1,im
    712          do i=1,im

  • LMDZ5/trunk/libf/filtrez/eigen.F

    r1907 r2197  
    33!
    44      SUBROUTINE eigen( e,d)
     5      IMPLICIT NONE
    56#include "dimensions.h"
    6       dimension e( iim,iim ), d( iim )
    7       dimension asm( iim )
     7      real :: e( iim,iim ), d( iim )
     8      real :: asm( iim )
     9      integer :: im,i,j
    810      im=iim
    911c
Note: See TracChangeset for help on using the changeset viewer.