Ignore:
Timestamp:
Aug 6, 2019 9:11:47 AM (23 months ago)
Author:
raasch
Message:

relational operators .EQ., .NE., etc. replaced by ==, /=, etc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/indoor_model_mod.f90

    r3885 r4144  
    2626! -----------------
    2727! $Id$
     28! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
     29!
     30! 3885 2019-04-11 11:29:34Z kanani
    2831! Changes related to global restructuring of location messages and introduction
    2932! of additional debug messages
     
    454457          IF ( building_id_f%var(j,i) /= building_id_f%fill )  THEN
    455458             IF ( num_buildings_l(myid) > 0 )  THEN
    456                 IF ( ANY( building_id_f%var(j,i) .EQ.  build_ids_l ) )  THEN
     459                IF ( ANY( building_id_f%var(j,i) ==  build_ids_l ) )  THEN
    457460                   CYCLE
    458461                ELSE
     
    521524
    522525       IF ( ALLOCATED(build_ids_final) )  THEN
    523           IF ( ANY( build_ids(n) .EQ. build_ids_final ) )  THEN    !FK: Warum ANY?, Warum .EQ.? --> s.o
     526          IF ( ANY( build_ids(n) == build_ids_final ) )  THEN    !FK: Warum ANY?, Warum .EQ.? --> s.o
    524527             CYCLE
    525528          ELSE
Note: See TracChangeset for help on using the changeset viewer.