* ## THE EXTERNAL FORCES ITEMS SHOULD BE NOTED & ITEM NEED TO CHANGE THE DISPLACEMENT ## *Number of knot : NNOD 7 *Flexural rigidity EI 50 *Mass per length : PLmas ...
2010-2-9 11:45 PM - tsmhwthz
PROGRAM SCM_PRO IMPLICIT REAL*8(A-H,O-Z) CHARACTER*20 FILENAME CHARACTER*2 ID WRITE(*,*) "ENTER THE FILE NAME" READ(*,'(A20)') FILENAME I=INDEX(FILENAME,' ') OPEN(UNIT=1,FILE=FILENA ...
2010-2-9 11:43 PM - tsmhwthz