INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Where statement

Where statement

(OP)
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

RE: Where statement

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"?

RE: Where statement

(OP)
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!

RE: Where statement

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

RE: Where statement

(OP)
ok. But this also does not run ;(


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

RE: Where statement

(OP)
I found the solution! THX a lot!


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

RE: Where statement

You could use

CODE

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

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close