/AddVector3D.f90
Secret
Last active Oct 22, 2015
| Program AddVector3D | |
| Real,dimension(3)::A,B,C | |
| Integer::i | |
| Print "Please enter A1,A2,A3" | |
| Read A | |
| Print "Please enter B1,B2,B3" | |
| Read B | |
| Do i=1,3 | |
| C(i)=A(i)+B(i) | |
| End Do | |
| Print "C=", C | |
| End Program |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment