Skip to content

Instantly share code, notes, and snippets.

@Ansarina

Ansarina/MulVector3D.f90 Secret

Created October 22, 2015 21:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Ansarina/e69b39f60380d34f5e6c to your computer and use it in GitHub Desktop.
Save Ansarina/e69b39f60380d34f5e6c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
MulVector3D.f90
Program MulVector3D
Real,dimension(3)::A,B,C
Integer::i
Print ‘Please enter A1,A2,A3’
Read A
Print ‘Please enter B1,B2,B3’
Read B
C(1)=A(2)*B(3)-A(3)*B(2)
C(2)=A(3)*B(1)-A(1)*B(3)
C(3)=A(1)*B(2)-A(2)*B(1)
Print ‘C=’, C
End Program
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment