stuffa(3f) - [M_calculator] directly store a string into calculator variable name table (LICENSE:PD)
Synopsis
Definition
Options
Example
Author
License
subroutine stuffa(varnam,string,ioflag)
character(len=*),intent(in) :: varnam character(len=*),intent(in) :: string character(len=*),intent(in),optional :: ioflag
Breaking the rule of only accessing the calculator thru calculator(3f):a direct deposit of a value into the calculator assumed to be used only by friendly calls, for efficiency and to avoid problems with recursion if a routine called by the calculator in JUOWN1(3f) wants to store something back into the calculator variable table.
varnam variable name to create or replace in calculator module string string to associate with the calculator variable name varnam ioflag journal logging type passed on to journal(3f) procedure. If it is not present or blank, the journal(3f) routine is not evoked.
Sample program:
program demo_stuffa use M_calculator, only : stuffa use M_calculator, only : snum0 implicit none call stuffa($A,) call stuffa($mystring,this is the value of the string) write(*,*)snum0($mystring) call stuffa($mystring,this is the new value of the string) write(*,*)snum0($mystring) end program demo_stuffa
John S. Urban
Public Domain
Nemo Release 3.1 | stuffa (3) | February 23, 2025 |