Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Where statement
I found the solution! THX a lot! where ( arr1=="T" ) arr1="X" where ( arr1=="H" ) arr1="T" Endwhere endwhere -
Where statement
ok. But this also does not run ;( where (arr1=="T") arr1=="X" where (arr1=="H") arr1=="T" endwhere endwhere -
Where statement
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! -
Where statement
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(*,*)... -
-
Two dimensional character array
Hello, I would like to define a two dimensional character array. My program does not run! Please help me. program exercise10 implicit none character(1), dimension(3,3)::arr1=(/(/"a","b","c"/),(/"a","b","c"/),(/"a","b","c"/)/) write(*,*) "Exersice10: ", arr1 end...
