Skip to content

Instantly share code, notes, and snippets.

@Ansarina Ansarina/MulVector3D.f90 Secret
Created Oct 22, 2015

Embed
What would you like to do?
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
You can’t perform that action at this time.