fork download
copy 
  1. program TEST
  2. CHARACTER :: A(2,2)
  3. REAL :: B(2,2)
  4. A(1,1)='C'
  5. A(2,1)='D'
  6. A(1,2)='E'
  7. A(2,2)='F'
  8. B(1,1)=1.0
  9. B(2,1)=2.0
  10. B(1,2)=3.0
  11. B(2,2)=4.0
  12. WHERE (A(:,2).NE.'E')
  13. 	B(:,2)=B(:,2)/2
  14. END WHERE
  15. PRINT *, B(1,1)
  16. PRINT *, B(2,1)
  17. PRINT *, B(1,2)
  18. PRINT *, B(2,2)
  19. end
Success #stdin #stdout 0s 3980KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   1.00000000    
   2.00000000    
   3.00000000    
   2.00000000
https://ideone.com/5id1Nz
language:
Fortran (gfortran 8.3)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!