Changeset 209


Ignore:
Timestamp:
Jan 4, 2011 4:44:59 PM (12 years ago)
Author:
vondreele
Message:

fortran fixes - new self contained libraries
had to change all INCLUDE copyright lines.

Location:
trunk
Files:
18 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/powsubs/acosd.for

    r200 r209  
    33!PURPOSE:
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77!CALLING ARGUMENTS:
  • trunk/fsource/powsubs/cosd.for

    r200 r209  
    33!PURPOSE: Calculate cosine from angle in deg.
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77!CALLING ARGUMENTS:
  • trunk/fsource/powsubs/lorentz.for

    r200 r209  
    33!PURPOSE:Calculate Lorentzian function & derivatives
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77!PSEUDOCODE:
  • trunk/fsource/powsubs/psvfcj.for

    r200 r209  
    1111
    1212
    13       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     13      INCLUDE       'INCLDS/COPYRIGT.FOR'
    1414
    1515!CALLING ARGUMENTS:
  • trunk/fsource/powsubs/psvoigt.for

    r200 r209  
    44!pseudo Voigt P.Tompson, D.E. Cox & J.B. Hastings (1987). J. Appl. Cryst.,20,79-83
    55
    6       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     6      INCLUDE       'INCLDS/COPYRIGT.FOR'
    77
    88!PSEUDOCODE:
  • trunk/fsource/powsubs/sind.for

    r200 r209  
    33!PURPOSE: Calculate sine from angle in deg.
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77!CALLING ARGUMENTS:
  • trunk/fsource/powsubs/tand.for

    r200 r209  
    33!PURPOSE: Calculate tangent from angle in deg.
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77!CALLING ARGUMENTS:
  • trunk/fsource/spsubs/sglatc.for

    r57 r209  
    33!Purpose:      Determine Laue group and some other preliminary data
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77!       This program was developed for
  • trunk/fsource/spsubs/sglcen.for

    r57 r209  
    11      SUBROUTINE SGLCEN(LCENT,CEN,NCV)
    22
    3       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     3      INCLUDE       'INCLDS/COPYRIGT.FOR'
    44
    55C       This program was developed for
  • trunk/fsource/spsubs/sglpak.for

    r57 r209  
    11      SUBROUTINE SGLPAK(L,IER)
    22
    3       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     3      INCLUDE       'INCLDS/COPYRIGT.FOR'
    44
    55C       THIS PROGRAM WAS DEVELOPED FOR
  • trunk/fsource/spsubs/sgmtml.for

    r57 r209  
    33!Purpose:      Form product of operators to generate the full group
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77C       This program was developed for
  • trunk/fsource/spsubs/sgoprn.for

    r57 r209  
    44!            spin flip operations
    55
    6       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     6      INCLUDE       'INCLDS/COPYRIGT.FOR'
    77
    88!CALL SEQUENCE PARAMETERS:
  • trunk/fsource/spsubs/sgrmat.for

    r57 r209  
    33!Purpose:      S.R. to create a 3,3 matrix from 9 scalers
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77C       THIS PROGRAM WAS DEVELOPED FOR
  • trunk/fsource/spsubs/sgroupnp.for

    r57 r209  
    44!Purpose:      S.R. which generates a space group from the symbol  - no printing
    55
    6       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     6      INCLUDE       'INCLDS/COPYRIGT.FOR'
    77
    88!       This program was developed for
  • trunk/fsource/spsubs/sgtrcf.for

    r57 r209  
    33!Purpose:      Search for translation conflicts
    44
    5       INCLUDE       '../INCLDS/COPYRIGT.FOR'
     5      INCLUDE       'INCLDS/COPYRIGT.FOR'
    66
    77C       This program was developed for
Note: See TracChangeset for help on using the changeset viewer.