New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 530 for trunk/AGRIF/LIB/WorkWithAllocatelist.c – NEMO

Ignore:
Timestamp:
2006-10-17T17:36:11+02:00 (18 years ago)
Author:
opalod
Message:

RB: update of the conv for IOM and NEC MPI library

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/AGRIF/LIB/WorkWithAllocatelist.c

    r396 r530  
    33/*     CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran)       */ 
    44/*                                                                            */ 
    5 /*     Copyright (C) 2005 Laurent Debreu (Laurent.Debreu@imag.fr)             */ 
     5/* Copyright or © or Copr. Laurent Debreu (Laurent.Debreu@imag.fr)            */ 
    66/*                        Cyril Mazauric (Cyril.Mazauric@imag.fr)             */ 
     7/* This software is governed by the CeCILL-C license under French law and     */ 
     8/* abiding by the rules of distribution of free software.  You can  use,      */ 
     9/* modify and/ or redistribute the software under the terms of the CeCILL-C   */ 
     10/* license as circulated by CEA, CNRS and INRIA at the following URL          */ 
     11/* "http://www.cecill.info".                                                  */ 
    712/*                                                                            */ 
    8 /*     This program is free software; you can redistribute it and/or modify   */ 
    9 /*    it                                                                      */ 
     13/* As a counterpart to the access to the source code and  rights to copy,     */ 
     14/* modify and redistribute granted by the license, users are provided only    */ 
     15/* with a limited warranty  and the software's author,  the holder of the     */ 
     16/* economic rights,  and the successive licensors  have only  limited         */ 
     17/* liability.                                                                 */ 
    1018/*                                                                            */ 
    11 /*    This program is distributed in the hope that it will be useful,         */ 
    12 /*     but WITHOUT ANY WARRANTY; without even the implied warranty of         */ 
    13 /*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          */ 
    14 /*    GNU General Public License for more details.                            */ 
     19/* In this respect, the user's attention is drawn to the risks associated     */ 
     20/* with loading,  using,  modifying and/or developing or reproducing the      */ 
     21/* software by the user in light of its specific status of free software,     */ 
     22/* that may mean  that it is complicated to manipulate,  and  that  also      */ 
     23/* therefore means  that it is reserved for developers  and  experienced      */ 
     24/* professionals having in-depth computer knowledge. Users are therefore      */ 
     25/* encouraged to load and test the software's suitability as regards their    */ 
     26/* requirements in conditions enabling the security of their systems and/or   */ 
     27/* data to be ensured and,  more generally, to use and operate it in the      */ 
     28/* same conditions as regards security.                                       */ 
    1529/*                                                                            */ 
     30/* The fact that you are presently reading this means that you have had       */ 
     31/* knowledge of the CeCILL-C license and that you accept its terms.           */ 
     32/******************************************************************************/ 
     33/* version 1.0                                                                */ 
    1634/******************************************************************************/ 
    1735#include <stdio.h> 
    … …  
    2240 
    2341/******************************************************************************/ 
    24 /*                       OPTI_1_AddIdentToTheAllocateList                     */ 
     42/*                            AddIdentToTheAllocateList_1                     */ 
    2543/******************************************************************************/ 
    2644/* Firstpass 1                                                                */ 
    … …  
    2846/*                                                                            */ 
    2947/******************************************************************************/ 
    30 void OPTI_1_AddIdentToTheAllocateList(char *nom) 
     48void AddIdentToTheAllocateList_1(char *nom) 
    3149{ 
    3250   listallocate *newvar; 
    … …  
    7896 
    7997/******************************************************************************/ 
    80 /*                       OPTI_0_IsAllocateInThisSubroutine                    */ 
     98/*                            IsAllocateInThisSubroutine_0                    */ 
    8199/******************************************************************************/ 
    82100/* Firstpass 0                                                                */ 
    … …  
    84102/*                                                                            */ 
    85103/******************************************************************************/ 
    86 int OPTI_0_IsAllocateInThisSubroutine() 
     104int IsAllocateInThisSubroutine_0() 
    87105{ 
    88106   listallocate *parcours; 
    … …  
    106124 
    107125/******************************************************************************/ 
    108 /*                       OPTI_0_IsVarAllocatable                              */ 
     126/*                            IsVarAllocatable_0                              */ 
    109127/******************************************************************************/ 
    110128/* Firstpass 0                                                                */ 
    … …  
    112130/*                                                                            */ 
    113131/******************************************************************************/ 
    114 int OPTI_0_IsVarAllocatable(char *ident) 
     132int IsVarAllocatable_0(char *ident) 
    115133{ 
    116134   listallocate *parcours; 
    … …  
    132150 
    133151/******************************************************************************/ 
    134 /*                     OPTI_0_varisallocatable                                */ 
     152/*                          varisallocatable_0                                */ 
    135153/******************************************************************************/ 
    136154/* Firstpass 0                                                                */ 
    … …  
    138156/*                                                                            */ 
    139157/******************************************************************************/ 
    140 int OPTI_0_varisallocatable(char *ident) 
     158int varisallocatable_0(char *ident) 
    141159{ 
    142160   listvar *newvar; 
    … …  
    150168      while ( newvar && out == 0 ) 
    151169      { 
    152          if ( !strcmp(ident,newvar->var->nomvar) &&  
     170         if ( !strcasecmp(ident,newvar->var->nomvar) &&  
    153171              newvar->var->allocatable == 1 )  out = 1; 
    154172         else newvar = newvar->suiv; 
    … …  
    159177         while ( newvar && out == 0 ) 
    160178         { 
    161             if ( !strcmp(ident,newvar->var->nomvar) &&  
     179            if ( !strcasecmp(ident,newvar->var->nomvar) &&  
    162180                 newvar->var->allocatable == 1 )  out = 1; 
    163181            else newvar = newvar->suiv; 
Note: See TracChangeset for help on using the changeset viewer.