Ignore:
Timestamp:
Oct 21, 2024, 2:58:45 PM (23 hours ago)
Author:
abarral
Message:

Convert fixed-form to free-form sources .F -> .{f,F}90
(WIP: some .F remain, will be handled in subsequent commits)

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/heavyside.f90

    r5245 r5246  
    22! $Header$
    33!
    4 c
    5 c
    6        FUNCTION heavyside(a)
     4!
     5!
     6 FUNCTION heavyside(a)
    77
    8 c      ...   P. Le Van  ....
    9 c
    10        IMPLICIT NONE
     8   ! ...   P. Le Van  ....
     9  !
     10   IMPLICIT NONE
    1111
    12        REAL(KIND=8) heavyside , a
     12   REAL(KIND=8) heavyside , a
    1313
    14        IF ( a.LE.0. )  THEN
    15          heavyside = 0.
    16        ELSE
    17          heavyside = 1.
    18        ENDIF
     14   IF ( a.LE.0. )  THEN
     15     heavyside = 0.
     16   ELSE
     17     heavyside = 1.
     18   ENDIF
    1919
    20        RETURN
    21        END
     20   RETURN
     21END FUNCTION heavyside
    2222
    2323
Note: See TracChangeset for help on using the changeset viewer.