uamplitude.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	uamplitude (time, name, amplitude)

Function/Subroutine Documentation

uamplitude()

subroutine uamplitude	(	real*8	time,
		character*80	name,
		real*8	amplitude
	)

!
!     user subroutine uamplitude: user defined amplitude definition
!
!     INPUT:
!
!     name               amplitude name
!     time               time at which the amplitude is to be
!                        evaluated
!
!     OUTPUT:
!
!     amplitude          value of the amplitude at time
!           
      implicit none
!
      character*80 name
!
      real*8 time,amplitude
!
      if(name(1:9).eq.'QUADRATIC') then
         amplitude=time**2
      else
         write(*,*) '*ERROR in uamplitude: unknown amplitude'
         call exit(201)
      endif
!
      return