Changeset 2622 for XIOS3/trunk/src/interface/fortran
- Timestamp:
- 03/20/24 16:34:00 (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS3/trunk/src/interface/fortran/ilogical_bool_conversion.f90
r2620 r2622 21 21 ctrue = cxios_set_logical_true() 22 22 cfalse = cxios_set_logical_false() 23 if (tmp.eq ..false.) then23 if (tmp.eqv..false.) then 24 24 tmp = cfalse 25 25 else … … 37 37 cfalse = cxios_set_logical_false() 38 38 do ij=1,ni_(1) 39 if (tmp(ij).eq ..false.) then39 if (tmp(ij).eqv..false.) then 40 40 tmp(ij) = cfalse 41 41 else … … 55 55 do j=1,ni_(2) 56 56 do i=1,ni_(1) 57 if (tmp(i,j).eq ..false.) then57 if (tmp(i,j).eqv..false.) then 58 58 tmp(i,j) = cfalse 59 59 else … … 75 75 do j=1,ni_(2) 76 76 do i=1,ni_(1) 77 if (tmp(i,j,k).eq ..false.) then77 if (tmp(i,j,k).eqv..false.) then 78 78 tmp(i,j,k) = cfalse 79 79 else … … 97 97 do j=1,ni_(2) 98 98 do i=1,ni_(1) 99 if (tmp(i,j,k,l).eq ..false.) then99 if (tmp(i,j,k,l).eqv..false.) then 100 100 tmp(i,j,k,l) = cfalse 101 101 else … … 121 121 do j=1,ni_(2) 122 122 do i=1,ni_(1) 123 if (tmp(i,j,k,l,m).eq ..false.) then123 if (tmp(i,j,k,l,m).eqv..false.) then 124 124 tmp(i,j,k,l,m) = cfalse 125 125 else … … 147 147 do j=1,ni_(2) 148 148 do i=1,ni_(1) 149 if (tmp(i,j,k,l,m,p).eq ..false.) then149 if (tmp(i,j,k,l,m,p).eqv..false.) then 150 150 tmp(i,j,k,l,m,p) = cfalse 151 151 else … … 175 175 do j=1,ni_(2) 176 176 do i=1,ni_(1) 177 if (tmp(i,j,k,l,m,p,q).eq ..false.) then177 if (tmp(i,j,k,l,m,p,q).eqv..false.) then 178 178 tmp(i,j,k,l,m,p,q) = cfalse 179 179 else … … 193 193 IMPLICIT NONE 194 194 LOGICAL (KIND=C_BOOL), INTENT(INOUT) :: tmp 195 if (tmp.eq ..false.) then195 if (tmp.eqv..false.) then 196 196 tmp = .false. 197 197 else … … 206 206 INTEGER :: ij 207 207 do ij=1,ni_(1) 208 if (tmp(ij).eq ..false.) then208 if (tmp(ij).eqv..false.) then 209 209 tmp(ij) = .false. 210 210 else … … 221 221 do j=1,ni_(2) 222 222 do i=1,ni_(1) 223 if (tmp(i,j).eq ..false.) then223 if (tmp(i,j).eqv..false.) then 224 224 tmp(i,j) = .false. 225 225 else … … 238 238 do j=1,ni_(2) 239 239 do i=1,ni_(1) 240 if (tmp(i,j,k).eq ..false.) then240 if (tmp(i,j,k).eqv..false.) then 241 241 tmp(i,j,k) = .false. 242 242 else … … 257 257 do j=1,ni_(2) 258 258 do i=1,ni_(1) 259 if (tmp(i,j,k,l).eq ..false.) then259 if (tmp(i,j,k,l).eqv..false.) then 260 260 tmp(i,j,k,l) = .false. 261 261 else … … 278 278 do j=1,ni_(2) 279 279 do i=1,ni_(1) 280 if (tmp(i,j,k,l,m).eq ..false.) then280 if (tmp(i,j,k,l,m).eqv..false.) then 281 281 tmp(i,j,k,l,m) = .false. 282 282 else … … 301 301 do j=1,ni_(2) 302 302 do i=1,ni_(1) 303 if (tmp(i,j,k,l,m,p).eq ..false.) then303 if (tmp(i,j,k,l,m,p).eqv..false.) then 304 304 tmp(i,j,k,l,m,p) = .false. 305 305 else … … 326 326 do j=1,ni_(2) 327 327 do i=1,ni_(1) 328 if (tmp(i,j,k,l,m,p,q).eq ..false.) then328 if (tmp(i,j,k,l,m,p,q).eqv..false.) then 329 329 tmp(i,j,k,l,m,p,q) = .false. 330 330 else … … 340 340 END SUBROUTINE xios_bool_to_logical_7d 341 341 342 !SUBROUTINE xios_bool_to_logical_0d(tmp, ni_)343 ! IMPLICIT NONE344 ! LOGICAL (KIND=C_BOOL), INTENT(INOUT) :: tmp(:)345 ! INTEGER, INTENT(IN) :: ni_(:)346 ! INTEGER :: ij347 ! do ij=1,ni_(1)348 ! if (tmp(ij).eq..false.) then349 ! tmp(ij) = .false.350 ! else351 ! tmp(ij) = .true.352 ! endif353 ! enddo354 !END SUBROUTINE xios_bool_to_logical_0d355 356 357 342 END MODULE logical_bool_conversion 358 343
Note: See TracChangeset
for help on using the changeset viewer.