1!$Id:$ 2 subroutine pmacr5 (lct,ct,j) 3 4! * * F E A P * * A Finite Element Analysis Program 5 6!.... Copyright (c) 1984-2017: Regents of the University of California 7! All rights reserved 8 9!-----[--.----+----.----+----.-----------------------------------------] 10! Purpose: Command language instruction subprogram: Part 5 11 12! Inputs: 13! lct - Command option for current command 14! ct(3) - Command parameters for current command 15! j - Number of command to execute 16 17! Outputs: 18! Depends on value of command j: None for serial version 19!-----[--+---------+---------+---------+---------+---------+---------+-] 20 implicit none 21 22 integer j 23 character lct*15 24 real*8 ct(3) 25 26 save 27 28! Solution command instruction subprogram - part 5. 29 30 if(j.eq.1) then 31 32 write(*,2000) ' OUTMesh ' 33 34 endif 35 36! Formats 37 382000 format(' *ERROR*',a,'command only available in FEAP version') 39 40 end 41