CP2K: block_p_types.f90 Source File

CP2K 2.4 (Revision 12889)
File List
File Members
00001 !-----------------------------------------------------------------------------!
00002 !   CP2K: A general program to perform molecular dynamics simulations         !
00003 !   Copyright (C) 2000 - 2013  CP2K developers group                          !
00004 !-----------------------------------------------------------------------------!
00005 
00006 ! *****************************************************************************
00012 MODULE block_p_types
00013   USE f77_blas
00014   USE kinds,                           ONLY: dp
00015 #include "cp_common_uses.h"
00016 
00017   IMPLICIT NONE
00018   PRIVATE
00019   PUBLIC :: block_p_type
00020 ! *****************************************************************************
00021   TYPE block_p_type
00022     REAL(KIND = dp), DIMENSION(:,:), POINTER :: block
00023   END TYPE block_p_type
00024 END MODULE block_p_types