Subversion Repositories lagranto.ecmwf

Rev

Rev 3 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 9
Line 468... Line 468...
468 
    isp=0
 468 
    isp=0
469 
    ibin=0
 469 
    ibin=0
470 
    str=str(ipos:)
 470 
    str=str(ipos:)
471 
  case('+','-')
 471 
  case('+','-')
472 
    chtemp=uppercase(str(ipos-1:ipos-1))
 472 
    chtemp=uppercase(str(ipos-1:ipos-1))
473 
    if(is_letter(str(1:1))==.true. .or. chtemp/='E') then
 473 
    if(is_letter(str(1:1)).eqv..true. .or. chtemp/='E') then
474 
      tok%char=str(1:ipos-1)
 474 
      tok%char=str(1:ipos-1)
475 
      tok%type='S'
 475 
      tok%type='S'
476 
      icp=0
 476 
      icp=0
477 
      isp=0
 477 
      isp=0
478 
      ibin=1
 478 
      ibin=1
Line 590... Line 590...
590 
  nparams=2
 590 
  nparams=2
591 
end if
 591 
end if
592 
 
 592 
 
593 
! Assign val to sym if sym is already in symbol table
 593 
! Assign val to sym if sym is already in symbol table
594 
usym=uppercase(sym)
 594 
usym=uppercase(sym)
595 
if(is_letter(sym(1:1))==.false. .or. len_trim(sym)>24) then
 595 
if(is_letter(sym(1:1)).eqv..false. .or. len_trim(sym)>24) then
596 
  ierr=11
 596 
  ierr=11
597 
  write(*,*) 'Error: symbol ',trim(sym),' has improper format'
 597 
  write(*,*) 'Error: symbol ',trim(sym),' has improper format'
598 
  write(*,*)
 598 
  write(*,*)
599 
  return
 599 
  return
600 
end if
 600 
end if
Line 717... Line 717...
717 
complex(kc8) :: cval
 717 
complex(kc8) :: cval
718 
real(kr8) :: rval
 718 
real(kr8) :: rval
719 
 
 719 
 
720 
ierr=0
 720 
ierr=0
721 
 
 721 
 
722 
if(is_letter(xinchar(1:1))==.true.) then   ! xinchar is a symbol
 722 
if(is_letter(xinchar(1:1)).eqv..true.) then   ! xinchar is a symbol
723 
  call getparam(xinchar,cval)
 723 
  call getparam(xinchar,cval)
724 
else                               ! xinchar is a number string
 724 
else                               ! xinchar is a number string
725 
  call value(xinchar,rval,ios)     ! rval is the value of xinchar
 725 
  call value(xinchar,rval,ios)     ! rval is the value of xinchar
726 
  if(ios > 0) then
 726 
  if(ios > 0) then
727 
    ierr=3
 727 
    ierr=3
Line 793... Line 793...
793 
character(len=len_trim(sym)) :: usym
 793 
character(len=len_trim(sym)) :: usym
794 
complex(kc8) :: var
 794 
complex(kc8) :: var
795 
 
 795 
 
796 
ierr=0
 796 
ierr=0
797 
sym=adjustl(sym)
 797 
sym=adjustl(sym)
798 
if(is_letter(sym(1:1))==.false. .or. len_trim(sym)>24) then
 798 
if(is_letter(sym(1:1)).eqv..false. .or. len_trim(sym)>24) then
799 
  ierr=11
 799 
  ierr=11
800 
  write(*,*) 'Error: symbol ',trim(sym),' has incorrect format'
 800 
  write(*,*) 'Error: symbol ',trim(sym),' has incorrect format'
801 
  write(*,*)
 801 
  write(*,*)
802 
  return
 802 
  return
803 
end if
 803 
end if