program demo_LALA use M_matrix, only : lala write(*,'(a)')'optionally initialize scratch area size' call LALA(20000) write(*,'(a)')'do some commands' call LALA([character(len=80) :: & & 'semi; ',& & 'a=magic(4),b=-a ',& & 'a+b;a;b ',& & "display('That is all Folks!') "]) write(*,'(a)')'do a single command' call LALA('who') write(*,'(a)')'enter interactive mode' call LALA() write(*,'(a)')'ending program' end program demo_LALA