Where statement

[Levay87]

Hello,
thanks a lot for your help. Now I have to apply rules.
All (T) are marked become (X).
All h(H) become (T)

Why it does not run?
Here is my code:

program exercise10
implicit none

character,dimension(3,3)::arr1=reshape((/"#","#","T","#","H","T","#","#","#"/),(/3,3/))

write(*,*) "Exersice10: ", arr1

where (arr1=T) arr1="X"
write(*,*) arr1
elsewhere (arr1=H) arr1="T"
wirte(*,*) arr1
end where

end program exercise10

 

[xwb]

Does it even compile?

In the where statement = is assignment, == is a test for equality.
You can't use a write statement in a where clause.
You don't have variables T and H: are these meant to be "T" and "H"?

 

[Levay87]

Compilation failed.

Yes, these meant to be "T" and "H".

It tried this. But it does not run.

where (arr1=="T") arr1=="X"
write(*,*) arr1
elsewhere (arr1=="H") arr1=="T"
wirte(*,*) arr1
end where

Need help
please!

 

[xwb]

You can't use a write statement in a where clause

 

[Levay87]

ok. But this also does not run ;(


where (arr1=="T")
arr1=="X"
where (arr1=="H")
arr1=="T"
endwhere
endwhere

 

[Levay87]

I found the solution! THX a lot!


where ( arr1=="T" )
arr1="X"
where ( arr1=="H" )
arr1="T"
Endwhere
endwhere

 

[xwb]

You could use

where (arr1=="T")
   arr1 = "X"
elsewhere (arr1 == "H")
   arr1 = "T"
end where