Search Site | Contact Details | FAQ

ADAS Subroutine ass2

C
       subroutine ass2( x1    , h     , x    , f0    , f1    ,
     &                  g0    , g1    , ei   , ej    , tkij  ,
     &                  li    , lj    , z    , ni    , rem
     &                )    
c-----------------------------------------------------------------------
c
c  ****************** fortran77 subroutine: ass2   *********************
c
c  purpose:  calculate asymptotic part of integrals over wave functions
c
c
c  subroutine:
c
c  input : (r*8)  x1
c  input : (r*8)  h
c  input : (r*8)  x
c  input : (r*8)  f0
c  input : (r*8)  f1
c  input : (r*8)  g0
c  input : (r*8)  g1
c  input : (r*8)  ei
c  input : (r*8)  ej
c  input : (r*8)  tkij
c  input : (i*4)  li
c  input : (i*4)  lj
c  input : (r*8)  z
c  input : (i*4)  ni
c
c  output: (r*8)  rem
c
c  routines:
c          none
c
c  author:  h. p. summers, university of strathclyde
c           ja7.08
c           tel. 0141-548-4196
c
c  date:    06/06/02
c
c  update: 
C 
C VERSION: 1.1                          DATE: 04-07-96
C MODIFIED: WILLIAM OSBORN
C               - FIRST VERSION.
C
C VERSION: 1.2                          DATE: 19-12-01
C MODIFIED: Martin O'MULLANE
C               - Removed junk from > column 72.c
C
C VERSION: 1.3                          DATE: 18-03-03
C MODIFIED: Hugh Summers
C               -Re-written and documented.
C
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
      INTEGER             LI,          LJ,          NI
      REAL*8              EI,          EJ,          F0,          F1
      REAL*8              G0,          G1,          H,           REM
      REAL*8              TKIJ,        X,           X1,          Z
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk